diff options
Diffstat (limited to 'std/Math.bruijn')
| -rw-r--r-- | std/Math.bruijn | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/std/Math.bruijn b/std/Math.bruijn index ae67136..d9a8c5e 100644 --- a/std/Math.bruijn +++ b/std/Math.bruijn @@ -22,6 +22,14 @@ lmin foldl1 min ⧗ (List Number) → Number :test (lmin ((+2) : ((+1) : {}(+0)))) ((+0)) +# converts number to list of its digits +digits z [[rec]] ⧗ Number → (List Number) + rec =?0 case-end case-rec + case-rec (1 (0 / (+10))) ; (0 % (+10)) + case-end empty + +:test (digits (+0)) (empty) + # list from num to num {…→…} z [[[rec]]] ⧗ Number → Number → (List Number) rec (1 =? ++0) case-end case-list |