git @ Cat's Eye Technologies Quylthulg / master eg / take-5-from-cyclic-list.quylthulg
master

Tree @master (Download .tar.gz)

take-5-from-cyclic-list.quylthulg @masterraw · history · blame

1
2
3
4
5
6
7
8
9
foreach $x$ = :L:[10, 20, goto $L$]
    with $a$ = ,null,[1,1,1,1,1,1], be
        foreach $n$=>>$a$>null>>null>
            with $r$=99999 be
                ,,$x$,<$a$<null<,,>>$a$>null>>null>,
            else be
                abort
    else be
        null