fact.s « examples « code « 07-zygote « history « docs - moon/zygotec - work-in-progress programming language.

about summary refs log tree commit diff

path: root/docs/history/07-zygote/code/examples/fact.s

blob: 21f6e32fe9a042828f028633abcdff49d3b4e876 (plain) (blame)

1
2
3

10 fa c pb c 10 . q
:fa 0 $ 2 < fb z _ 1 r :fb 0 $ 1 - fa c * r
:pb 0 $ 1 > 0 $ p1 z pb c pd j :p1 _ :pd 1 & 48 + . r