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

Back to the index