Mercurial > repo
view paste/paste.18999 @ 4374:7db862205326
<oerjan> echo \'main = let p = 1 : zipWith (+) (map (*4) p) (map (sum . zipWith (*) p . reverse) (inits p)) in print $ p !! 1000\' >Test.hs
author | HackBot |
---|---|
date | Tue, 28 Jan 2014 07:49:28 +0000 |
parents | ab2c49f31e97 |
children |
line wrap: on
line source
#!/bin/sh cd /var/irclogs/_esoteric if [ "$1" ]; then grep -P -i -- "$1" ????-??-??.txt | shuf -n 1 else file=$(shuf -en 1 ????-??-??.txt) echo "$file:$(shuf -n 1 $file)" fi