diff options
Diffstat (limited to 'samples/rosetta/towers_of_hanoi.bruijn')
| -rw-r--r-- | samples/rosetta/towers_of_hanoi.bruijn | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/samples/rosetta/towers_of_hanoi.bruijn b/samples/rosetta/towers_of_hanoi.bruijn new file mode 100644 index 0000000..afebb12 --- /dev/null +++ b/samples/rosetta/towers_of_hanoi.bruijn @@ -0,0 +1,10 @@ +:import std/Combinator . +:import std/Number . +:import std/String . + +hanoi y [[[[=?2 empty go]]]] + go [(4 --3 2 0) ++ str ++ (4 --3 0 1)] ((+6) - 1 - 0) + str "Move " ++ disk ++ " from " ++ source ++ " to " ++ destination ++ "\n" + disk number→string 3 + source number→string 2 + destination number→string 1 |