素数暗記マシン

今日は会社で仕事をしながらも、一日中素数のことばかり考えてました。
ま、まずいです。素数熱が覚める気がしません！　だって素数は無限にあるのですから。

ところで、（ところで、でもないですが）、素数は覚えているとカッコいいいです（きっと）。
なので、素数暗記マシンを作ります。

まず、元になる素数一覧を作って、ファイルへ保存します。1000までの素数です。

takk@deb83:~$ perl -e 'use Math::Prime::Util ":all";print "$_\n" for (@{primes(1,1000)});'>primes

ランダムで繰り返し表示するようにします。5秒毎に次の素数を表示するようにします。

takk@deb83:~$ while :; do shuf primes | head -1;sleep 5;done
109
313
(省略)

バナーを使い画面いっぱいに素数を表示して暗記しやすくしましょう。

takk@deb83:~$ while :; do shuf primes | head -1 | xargs banner | perl -pe 's/(.)/$1$1$1/g;print;print';sleep 5;done