Source

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

1
2
3
4
5
#!/bin/bash
n=98
diff -u <(head -$n dump.txt | perl -lanE 'print $., ": ", y/Y/Y/') \
    <(perl calc-num-Y-in-row.pl $(seq 1 "$n"))