Problem: Peano arithmetic

Code: Peano+arithmetic/tails_1700571009

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 string concatenation):[chr] 
    (implicit foldl1):[chr] 
        `% (step):[[chr]] 
            ~ (auto = 2):auto 
            . (map):[[chr]] 
                ; (let):[[chr]] -->let( A:[[chr]] ) 
                    % (split (remove empties)):[[chr]] 
                        @ (= fstLine):[chr] 
                        ~ (auto = words):auto 
                << (init):[chr] <--arg( B:[chr] ) 
                    $ (= B):[chr] 
        ? (if/else):[[chr]] <--arg( D:[chr] C:[chr] ) 
            ? (index):int 
                _ (= A):[[chr]] 
                "+" (string):[chr] 
            : (append):[chr] <--arg( E:int ) 
                @ (= D):[chr] 
                _ (= C):[chr] 
            . (map):[[chr]] 
                $ (= D):[chr] 
                _ (= C):[chr] <--arg( F:chr ) 
    @ (= fstInt):int 

Back to the index