Problem: McCarthy 91 function
Code: McCarthy+91+function/tails_1644921716
Nibbles version: 0.2 | 0.21 | 0.22 | 0.23 | 0.24 | 0.25 | 1.00
Format: Compact | Simple | +Type | Table | JSON | .nbl (DeBruijn) | .nbl (names)
Depth | Lit | Desc | Type | Arg | Let |
---|---|---|---|---|---|
0 |
| implicit map | [[chr]] | ||
* 1 | <~ | take while | [int,int,int] | ||
** 2 | `. | iterate while uniq | [int,int,int] | ||
*** 3 | ~~ | 3-ary tuple | int,int,int | ||
**** 4 | 1 | integer | int | ||
**** 4 | $ | = fstInt | int | ||
**** 4 | $ | = fstInt | int | ||
*** 3 |
| implicit tuple | int,int,int | C:int B:int A:int | |
**** 4 | ? | if/else | int | E:int | |
***** 5 | - | subtract | int | ||
****** 6 | @ | = B | int | ||
****** 6 | ^ | pow | int | ||
******* 7 | ~ | auto = 10 | auto | ||
******* 7 | ~ | auto = 2 | auto | ||
***** 5 | ~ | tuple | int,int | D:int | |
****** 6 | - | subtract | int | ||
******* 7 | @ | = C | int | ||
******* 7 | ~ | auto = 1 | auto | ||
****** 6 | - | subtract | int | ||
******* 7 | _ | = B | int | ||
******* 7 | 10 | integer | int | ||
***** 5 |
| implicit tuple | int,int | ||
****** 6 | + | add | int | ||
******* 7 | $ | = C | int | ||
******* 7 | ~ | auto = 1 | auto | ||
****** 6 | + | add | int | ||
******* 7 | 11 | integer | int | ||
******* 7 | @ | = B | int | ||
**** 4 | $ | = E | int | ||
**** 4 | @ | = C | int | ||
** 2 | _ | = F | int | H:int G:int F:int | |
* 1 | : | append | [chr] | N:int M:int L:int K:int J:int I:int | |
** 2 | : | append | [chr] | ||
*** 3 | ^ | replicate | [chr] | ||
**** 4 | $ | = N | int | ||
**** 4 | "M(" | string | [chr] | ||
*** 3 | @ | = M | int | ||
** 2 | ^ | replicate | [chr] | ||
*** 3 | $ | = N | int | ||
*** 3 | ")" | string | [chr] |