Yukicoder No.504 ゲーム大会(ランキング)

,

http://yukicoder.me/problems/no/504

tailsさんがperlで使っていた???PATTERN?の退化したものらしい: http://perldoc.perl.org/perlop.html#%3fPATTERN%3f。yukicoderはv5.16.3だから使えるが、手元のv5.22.1では削除されていて動かない。

implementation

bash $32$byte

awk 'NR>1,$0=r+=!!(a?a<$0:a=$0)'

元実装:

#include <stdio.h>
int main() {
    int n; scanf("%d", &n);
    int a; scanf("%d", &a); -- n;
    int rank = 1;
    printf("%d\n", rank);
    while (n --) {
        int b; scanf("%d", &b);
        if (a < b) ++ rank;
        printf("%d\n", rank);
    }
    return 0;
}