diff options
Diffstat (limited to 'samples/fun/collatz.bruijn')
| -rw-r--r-- | samples/fun/collatz.bruijn | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/samples/fun/collatz.bruijn b/samples/fun/collatz.bruijn new file mode 100644 index 0000000..c6b6057 --- /dev/null +++ b/samples/fun/collatz.bruijn @@ -0,0 +1,16 @@ +# bruijn collatz.bruijn +# fun collatz implementation using binary abstract machine + +:import std/Combinator . +:import std/Number/Binary . + +# TODO: add String → Binary function for reading from stdin +start (+01189998819991197253b) + +collatz [z [[rec]] (=²?0 ≠²!(/²0) 0)] ⧗ Binary → Boolean + ≠²!‣ z [[=²?0 (1 /²0) 0]] + rec (0 =? (+1b)) case-end case-rec + case-rec 1 ≠²!(↑¹0 + 0) + case-end [[1]] + +main [collatz start] |