view bin/addquote @ 8195:15385eb12db2

<oerjan> mkx bin/rnooodl//perl -pe \'s/(.)\\1\\1/"@{[$1 x(3+rand 7)]}"/ge\'
author HackBot
date Sun, 29 May 2016 00:46:18 +0000
parents 56dcce63901b
children e1ce00d00682
line wrap: on
line source

#!/bin/sh
[ "$1" ] || exit 1
printf "%s\n" "$1" >>quotes
printf "%d) %s" $(qc | cut -d' ' -f1) "$1"