I needed a bunch of truth-tables, with random result-rows, as exercises for logical minimization. An easy task utilizing Perl:
perl -e "print sprintf('%03b',$_).' '.int(rand()+0.5).$/ for 0..7"
Back to
Cool Uses for Perl
perl -e "print sprintf('%03b',$_).' '.int(rand()+0.5).$/ for 0..7"