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) 
    % (split (remove empties)) 
        "\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) 
        "\n" (string) 
    == (equal?) <--arg( A ) 
        / (foldr1) 
            % (split (remove empties)) 
                $ (= A) 
                ~ (auto = words) 
            $ (= C) <--arg( C B ) 
        ;$ (= fstLine) <--arg( D )