Source

project-euler / project-euler / 148 / Test.bash

Full commit
1
2
3
4
5
#!/bin/bash
n=49
diff -u <(head -$n dump.txt | perl -lanE 'print $., ": ", y/Y/Y/') \
    <(seq 1 "$n" | (while read i ; do echo "$i: $(perl calc-num-Y-in-row.pl "$i")" ; done))