Problem: Major Scales

Code: Major+Scales/tails+%28guess+%2A+%22+%22+must+be+needless+in+future+versions%29_1646456921

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)


* (join) 
    " " (string) 
    =\ (scanl) 
        , (range from 1) 
            6 (integer) 
        ;$ (= fstLine) <--arg( B A ) 
        : (append) <--arg( D C ) 
            + (add) 
                ; (save) -->let( F ) 
                    % (modulus) 
                        % (modulus) 
                            `( (uncons) -->let( E ) 
                                @ (= C) 
                            8 (integer) 
                        7 (integer) 
                'A' (char) 
            = (subscript (wrapped)) 
                + (add) 
                    ? (index) 
                        ; (save) -->let( N ) 
                            : (append) 
                                : (append) 
                                    : (append) 
                                        `: (list of 2 lists) 
                                            ; (save) -->let( I ) 
                                                `> (drop also take) -->let( H ) 
                                                    3 (integer) 
                                                    . (map) 
                                                        `D (to base from data) 
                                                            256 (to base from data arg) 
                                                        ch (chr) <--arg( G ) 
                                                            $ (= G) 
                                            @ (= H) 
                                        "" (string) 
                                    : (append) 
                                        << (init) 
                                            @ (= H) 
                                        + (add) 
                                            / (foldr1) 
                                                @ (= H) 
                                                @ (= J) <--arg( K J ) 
                                            2 (integer) 
                                : (append) 
                                    << (init) 
                                        $ (= I) 
                                    - (subtract) 
                                        / (foldr1) 
                                            $ (= I) 
                                            @ (= L) <--arg( M L ) 
                                        ~ (auto = 1) 
                        ;@ (= E) 
                    - (subtract) 
                        / (divide) 
                            % (modulus) 
                                ;$ (= F) 
                                3 (integer) 
                            ~ (auto = 2) 
                        == (equal?) 
                            ;_ (= D) 
                            3 (integer) <--arg( O ) 
                $ (= N) 
(postdata (hex): to base from data)
e299adf09d84ab

Back to the index