78 lines
1.9 KiB
Plaintext
78 lines
1.9 KiB
Plaintext
-- 1 -
|
|
? dup bool
|
|
&& [nullary] cons [nullary [false]] dip branch
|
|
++ 1 +
|
|
|| [nullary] cons [nullary] dip [true] branch
|
|
!- 0 >=
|
|
abs dup 0 < [] [neg] branch
|
|
anamorphism [pop []] swap [dip swons] genrec
|
|
app1 grba infrst
|
|
app2 [grba swap grba swap] dip [infrst] cons ii
|
|
app3 3 appN
|
|
appN [grabN] cons dip map disenstacken
|
|
at drop first
|
|
average [sum 1.0 *] [size] cleave /
|
|
b [i] dip i
|
|
binary unary popd
|
|
ccons cons cons
|
|
cleave fork popdd
|
|
clop cleave popdd
|
|
codireco cons dip rest cons
|
|
dinfrirst dip infrst
|
|
disenstacken ? [uncons ?] loop pop
|
|
down_to_zero [0 >] [dup --] while
|
|
drop [rest] times
|
|
dupd [dup] dip
|
|
dupdd [dup] dipd
|
|
dupdipd dup dipd
|
|
enstacken stack [clear] dip
|
|
flatten [] swap [concat] step
|
|
fork [i] app2
|
|
fourth rest third
|
|
gcd true [tuck mod dup 0 >] loop pop
|
|
grabN [] swap [cons] times
|
|
grba [stack popd] dip
|
|
hypot [sqr] ii + sqrt
|
|
ifte [nullary] dipd swap branch
|
|
ii [dip] dupdip i
|
|
infra swons swaack [i] dip swaack
|
|
infrst infra first
|
|
make_generator [codireco] ccons
|
|
neg 0 swap -
|
|
not [true] [false] branch
|
|
nullary [stack] dinfrirst
|
|
of swap at
|
|
pam [i] map
|
|
pm [+] [-] clop
|
|
popd [pop] dip
|
|
popdd [pop] dipd
|
|
popop pop pop
|
|
popopd [popop] dip
|
|
popopdd [popop] dipd
|
|
primrec [i] genrec
|
|
product 1 swap [*] step
|
|
quoted [unit] dip
|
|
range [0 <=] [1 - dup] anamorphism
|
|
range_to_zero unit [down_to_zero] infra
|
|
reverse [] swap shunt
|
|
rrest rest rest
|
|
run [] swap infra
|
|
second rest first
|
|
shift uncons [swons] dip
|
|
shunt [swons] step
|
|
size 0 swap [pop ++] step
|
|
spiral_next [[[abs] ii <=] [[<>] [pop !-] ||] &&] [[!-] [[++]] [[--]] ifte dip] [[pop !-] [--] [++] ifte] ifte
|
|
split_at [drop] [take] clop
|
|
sqr dup *
|
|
step_zero 0 roll> step
|
|
sum 0 swap [+] step
|
|
swons swap cons
|
|
take [] rolldown [shift] times pop
|
|
ternary binary popd
|
|
third rest second
|
|
unary nullary popd
|
|
unit [] cons
|
|
unquoted [i] dip
|
|
unswons uncons swap
|
|
while swap [nullary] cons dup dipd concat loop
|
|
x dup i |