File: filt_fact

package info (click to toggle)
saml 970418-3
  • links: PTS
  • area: main
  • in suites: slink
  • size: 1,204 kB
  • ctags: 1,701
  • sloc: ansic: 17,182; sh: 2,583; yacc: 497; perl: 264; makefile: 250; python: 242
file content (3 lines) | stat: -rwxr-xr-x 128 bytes parent folder | download | duplicates (3) 
1
2
3
 
#!/bin/sh
perl -ne '$|=1; chop; print "fact[$_]\n";' | induce -q -m- \
  -e 'precious fact(1); fact[0]=1; fact[n]=n.fact[n-1];'