Adapted from @_rsc's swtch.com/~rsc/talks/thr… , which contains a prime sieve written in shell, but it's broken. I fixed it:
#!/bin/sh
filter()
{
read p || exit
echo $p
while read x; do
if [ `expr $x % $p` != 0 ]; then
echo $x
fi
done | filter
}
seq 2 100 | filter
filter()
{
read p || exit
echo $p
while read x; do
if [ `expr $x % $p` != 0 ]; then
echo $x
fi
done | filter
}
seq 2 100 | filter
Compare to the Go program: golang.org/doc/play/sieve… . #golang
Same idea.
Note: This is not the Sieve of Eratosthenes. It's much more expensive. But cool anyway.
Same idea.
Note: This is not the Sieve of Eratosthenes. It's much more expensive. But cool anyway.
• • •
Missing some Tweet in this thread? You can try to
force a refresh
