Problem: Major Scales

Code: Major+Scales/darrenks_1645763323

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)

| (filter):[[chr]] 
    % (split (remove empties)):[[chr]] 
        "\nA B C\9839 D E F\9839 G\9839\nA\9837 B\9837 C D\9837 E\9837 F G\nA\9839 B\9839 C\119082 D\9839 E\9839 F\119082 G\119082\nB C\9839 D\9839 E F\9839 G\9839 A\9839\nB\9837 C D E\9837 F G A\nB\9839 C\119082 D\119082 E\9839 F\119082 G\119082 A\119082\nC D E F G A B\nC\9837 D\9837 E\9837 F\9837 G\9837 A\9837 B\9837\nC\9839 D\9839 E\9839 F\9839 G\9839 A\9839 B\9839\nD E F\9839 G A B C\9839\nD\9837 E\9837 F G\9837 A\9837 B\9837 C\nD\9839 E\9839 F\119082 G\9839 A\9839 B\9839 C\119082\nE F\9839 G\9839 A B C\9839 D\9839\nE\9837 F G A\9837 B\9837 C D\nE\9839 F\119082 G\119082 A\9839 B\9839 C\119082 D\119082\nF G A B\9837 C D E\nF\9837 G\9837 A\9837 B\119083 C\9837 D\9837 E\9837\nF\9839 G\9839 A\9839 B C\9839 D\9839 E\9839\nG A B C D E F\9839\nG\9837 A\9837 B\9837 C\9837 D\9837 E\9837 F\nG\9839 A\9839 B\9839 C\9839 D\9839 E\9839 F\119082\n" (string):[chr] 
        "\n" (string):[chr] 
    == (equal?):int <--arg( A:[chr] ) 
        / (foldr1):[chr] 
            % (split (remove empties)):[[chr]] 
                $ (= A):[chr] 
                ~ (auto = words):auto 
            $ (= C):[chr] <--arg( C:[chr] B:[chr] ) 
        ;$ (= fstLine):[chr] <--arg( D:[chr] )