Data commit

This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions

View file

@ -0,0 +1,9 @@
[fizzbuzz
1 [>=] [
[[15 % zero?] ['fizzbuzz' puts]
[5 % zero?] ['buzz' puts]
[3 % zero?] ['fizz' puts]
[true] [dup puts]
] when succ
] while].
|100 fizzbuzz

View file

@ -0,0 +1 @@
[seq [] swap dup [zero? not] [rolldown [dup] dip cons rollup pred] while pop pop].

View file

@ -0,0 +1 @@
[check [N X F : [[integer?] [[X % zero?] [N F cons] if] if]] view].

View file

@ -0,0 +1 @@
[func [[N F] : [dup N F check i] ] view map].

View file

@ -0,0 +1,6 @@
100 seq [
[15 [pop 'fizzbuzz' puts]]
[5 [pop 'buzz' puts]]
[3 [pop 'fizz' puts]]
[1 [puts]]] [func dup] step
[i true] map pop