Searching for Forks

find-forks.pl

use v5.36;
use warnings FATAL => 'all';
use Path::Tiny qw< path >;

my $v = qr{ ( [A-Za-z][.:] | [0-9][:] | [^ A-Za-z0-9()] )+ }nx;
my $p = qr{ \( ($v \s+ $v)+ \s+ $v \) }nx;

my $iter = path('code/aoc')->iterator({ recurse => 1 });

my %seen;
while (my $path = $iter->()) {
    next if $path->basename !~ /\.ijs/;
    my $c = $path->slurp;
    while ($c =~ /($p)/g) {
        if (!$seen{$1}++) {
            say sprintf("%-32s NB. %s", $1, substr($path, 9));
        }
    }
} 

forks.ijs

(<./ , >./)                      NB. 2015/09-All_in_a_Single_Night/solve.ijs
(# , {.)                         NB. 2015/10-Elves_Look,_Elves_Say/solve.ijs
({: - <:@{.)                     NB. 2015/06-Probably_a_Fire_Hazard/solve.ijs
(1: e. ,)                        NB. 2015/15-Science_for_Hungry_People/solve.ijs
(i.@! A. i.)                     NB. 2015/15-Science_for_Hungry_People/solve.ijs
(i.@# - i.~)                     NB. 2015/05-Doesnt_He_Have_Intern-Elves_For_This/solve.ijs
({. = {:)                        NB. 2015/05-Doesnt_He_Have_Intern-Elves_For_This/solve.ijs
(# , -~/)                        NB. 2015/11-Corporate_Policy/solve.ijs
(e. # [)                         NB. 2022/03-Rucksack_Reorganization/solve.ijs
($ #: I.@,)                      NB. 2022/17-Pyroclastic_Flow/unsolved.ijs
(< - >)                          NB. 2022/17-Pyroclastic_Flow/unsolved.ijs
(' '&~: # ])                     NB. 2022/05-Supply_Stacks/sr66.ijs
(#~ ',' ~: ])                    NB. 2022/11-Monkey_in_the_Middle/unsolved.ijs
(,: {. ,: |.@{:)                 NB. 2022/04-Camp_Cleanup/solve.ijs
(\: - /:)                        NB. 2021/05-Hydrothermal_Venture/unsolved.ijs
(] < |.)                         NB. 2021/01-Sonar_Sweep/solve.ijs
(I.@, =/ i.@$)                   NB. 2021/09-Smoke_Basin/solve.ijs
({. , {:)                        NB. 2021/04-Giant_Squid/solve.ijs
({:@] * +/@-.)                   NB. 2021/04-Giant_Squid/solve.ijs
({:@[ * +/@-.&,~)                NB. 2021/04-Giant_Squid/golf.ijs
(<. ,. >.)                       NB. 2021/07-The_Treachery_of_Whales/solve.ijs
({: - {.)                        NB. 2018/03-No_Matter_How_You_Slice_It/solve.ijs
({. ,. #)                        NB. 2018/04-Repose_Record/solve.ijs
([ + i.@-~)                      NB. 2018/04-Repose_Record/solve.ijs
(] i. >./)                       NB. 2018/04-Repose_Record/solve.ijs
(+./ . *.)                       NB. 2018/25-Four-Dimensional_Adventure/unsolved.ijs
(~.@,/ ,. {. #~ {: =/~ ~.@,/)    NB. 2018/07-The_Sum_of_Its_Parts/unsolved.ijs
(] #~ ~:)                        NB. 2018/07-The_Sum_of_Its_Parts/solve1.ijs
(~.@,/ ,. {. #~ ~.@,/ =/ {:)     NB. 2018/07-The_Sum_of_Its_Parts/solve-1.ijs
(=/ # {.)                        NB. 2018/02-Inventory_Management_System/solve.ijs
(~. \: #/.~)                     NB. 2023/07-Camel_Cards/solved.ijs
(". * #\)                        NB. 2023/07-Camel_Cards/solved.ijs
(i.@[ e. #.)                     NB. 2023/18-Lavaduct_Lagoon/solve.ijs
(, I.@:~: ,~)                    NB. 2023/12-Hot_Springs/unsolved.ijs
(#@>@{. "./. >@{:)               NB. 2023/02-Cube_Conundrum/solve.ijs
(#\ ,: 1:)                       NB. 2023/02-Cube_Conundrum/solve.ijs
({. , <@}.)                      NB. 2023/05-If_You_Give_A_Seed_A_Fertilizer/unsolved.ijs
(] ,. ])                         NB. 2019/12-The_N-Body_Problem/jitwit.ijs
(~.@{. i. {.)                    NB. 2019/10-Monitoring_Station/solved.ijs
(<./ + >./)                      NB. 2020/09-Encoding_Error/solve.ijs
(>./ , <./)                      NB. 2020/09-Encoding_Error/solve.ijs
(~. =/ ])                        NB. 2020/06-Custom_Customs/solve.ijs
(# = #@~.)                       NB. 2017/04-High-Entropy_Passphrases/solve.ijs
(}: , 0:)                        NB. 2017/06-Memory_Reallocation/solve.ijs
({: -.@e. }:)                    NB. 2017/06-Memory_Reallocation/solve.ijs
([: +/\ -/)                      NB. 2017/09-Stream_Processing/unsolved.ijs
({: , >./)                       NB. 2017/11-Hex_Ed/solve.ijs
(>./ - <./)                      NB. 2017/02-Corruption_Checksum/solve.ijs