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)
(implicit map):[[chr]] <~ (take while):[int,int,int] `. (iterate while uniq):[int,int,int] ~~ (3-ary tuple):int,int,int 1 (integer):int $ (= fstInt):int $ (= fstInt):int (implicit tuple):int,int,int <--arg( C:int B:int A:int ) ? (if/else):int -->let( E:int ) - (subtract):int @ (= B):int ^ (pow):int ~ (auto = 10):auto ~ (auto = 2):auto ~ (tuple):int,int <--arg( D:int ) - (subtract):int @ (= C):int ~ (auto = 1):auto - (subtract):int _ (= B):int 10 (integer):int (implicit tuple):int,int + (add):int $ (= C):int ~ (auto = 1):auto + (add):int 11 (integer):int @ (= B):int $ (= E):int @ (= C):int _ (= F):int <--arg( H:int G:int F:int ) : (append):[chr] <--arg( N:int M:int L:int K:int J:int I:int ) : (append):[chr] ^ (replicate):[chr] $ (= N):int "M(" (string):[chr] @ (= M):int ^ (replicate):[chr] $ (= N):int ")" (string):[chr]