challenge-155/daniel-pfeiffer/perl/ch-1a.sh


1
2
3
4
5
6
7
8
9
10
11

pl -Mbignum -OA2..30 '@a = 0; @b = $a = $b = 1;
    while( 1 ) {
        if( @a < @b || $a[0] != $b[0] ) {
            push @a, shift @b
        } elsif( "@a" eq "@b ) {
            last;
        }
        push @b, $b % $ARGV;
        ($a, $b) = ($b, $a + $b)
    }
    say "$ARGV: @a"'