26 lines
312 B
Plaintext
26 lines
312 B
Plaintext
( 69420 - a variation on FizzBuzz... but with 69 and 420 )
|
|
|
|
: over swap dup rot rot ;
|
|
: rem over over / * - ;
|
|
|
|
1
|
|
|
|
begin
|
|
dup 50<
|
|
while
|
|
dup 15 rem 0 = if
|
|
69420 .
|
|
else
|
|
dup 3 rem 0 = if
|
|
69 .
|
|
else
|
|
dup 3 rem 0 = if
|
|
420 .
|
|
else
|
|
dup .
|
|
fi
|
|
fi
|
|
fi
|
|
1+
|
|
repeat
|