Posted to none by aspect at Sun Aug 21 02:26:26 GMT 2011view raw

  1. #!/bin/rc
  2.  
  3. filter()
  4. {
  5. read p || exit
  6. while read x; do
  7. if [ `expr $x % $p` != 0 ]; then
  8. echo $x
  9. fi
  10. done | filter
  11. }
  12.  
  13. seq 2 100 | filter