unstack, least_fraction

2019-08-11 19:57:28 -07:00
parent 7a4e58fe15
commit 40148fced9
2 changed files with 3 additions and 3 deletions
@@ -32,6 +32,7 @@ ifte == [nullary] dipd swap branch
 ii == [dip] dupdip i
 infra == swons swaack [i] dip swaack
 infrst == infra first
+least_fraction == dup [gcd] infra [div] concat map
 make_generator == [codireco] ccons
 neg == 0 swap -
 nullary == [stack] dinfrirst