Artifact 8920e9fd1d3980816af06629a7da5aecca52ecb2:
0000: 23 0a 23 20 4e 6f 74 20 61 74 20 61 6c 6c 20 61 #.# Not at all a
0010: 20 67 6f 6f 64 20 65 78 61 6d 70 6c 65 20 6f 66 good example of
0020: 20 74 68 65 20 75 73 61 67 65 20 6f 66 20 6c 61 the usage of la
0030: 79 65 72 73 2c 20 62 75 74 20 61 6e 79 77 61 79 yers, but anyway
0040: 2e 2e 2e 0a 23 0a 0a 40 40 33 28 78 29 7b 78 7d ....#..@@3(x){x}
0050: 3b 0a 40 40 35 28 78 29 7b 78 7d 3b 0a 40 40 31 ;.@@5(x){x};.@@1
0060: 35 28 78 29 7b 78 7d 3b 0a 64 65 66 20 69 6e 63 5(x){x};.def inc
0070: 72 28 78 29 20 7b 20 78 2b 31 20 7d 3b 0a 40 20 r(x) { x+1 };.@
0080: 33 20 69 6e 63 72 28 78 29 20 7b 40 76 61 6c 75 3 incr(x) {@valu
0090: 65 28 20 69 66 28 40 20 33 28 78 29 2b 31 3c 20 e( if(@ 3(x)+1<
00a0: 33 29 74 68 65 6e 40 20 33 28 78 29 2b 31 20 65 3)then@ 3(x)+1 e
00b0: 6c 73 65 20 30 20 29 7d 3b 0a 40 20 35 20 69 6e lse 0 )};.@ 5 in
00c0: 63 72 28 78 29 20 7b 40 76 61 6c 75 65 28 20 69 cr(x) {@value( i
00d0: 66 28 40 20 35 28 78 29 2b 31 3c 20 35 29 74 68 f(@ 5(x)+1< 5)th
00e0: 65 6e 40 20 35 28 78 29 2b 31 20 65 6c 73 65 20 en@ 5(x)+1 else
00f0: 30 20 29 7d 3b 0a 40 31 35 20 69 6e 63 72 28 78 0 )};.@15 incr(x
0100: 29 20 7b 40 76 61 6c 75 65 28 20 69 66 28 40 31 ) {@value( if(@1
0110: 35 28 78 29 2b 31 3c 31 35 29 74 68 65 6e 40 31 5(x)+1<15)then@1
0120: 35 28 78 29 2b 31 20 65 6c 73 65 20 30 20 29 7d 5(x)+1 else 0 )}
0130: 3b 0a 0a 64 65 66 20 66 62 28 6e 20 40 76 61 6c ;..def fb(n @val
0140: 75 65 20 40 33 20 40 35 20 40 31 35 29 20 7b 0a ue @3 @5 @15) {.
0150: 20 20 70 72 69 6e 74 28 20 69 66 20 40 31 35 28 print( if @15(
0160: 6e 29 3a 20 69 66 20 40 35 28 6e 29 3a 20 69 66 n): if @5(n): if
0170: 20 40 33 28 6e 29 3a 20 6e 20 65 6c 73 65 3a 20 @3(n): n else:
0180: 22 46 69 7a 7a 22 20 65 6c 73 65 20 22 42 75 7a "Fizz" else "Buz
0190: 7a 22 20 65 6c 73 65 20 22 46 69 7a 7a 42 75 7a z" else "FizzBuz
01a0: 7a 22 20 29 3b 0a 20 20 66 62 28 69 6e 63 72 28 z" );. fb(incr(
01b0: 6e 29 29 0a 7d 3b 0a 0a 66 62 28 30 29 0a n)).};..fb(0).