home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CDPD Public Domain Collection for CDTV 3
/
CDPDIII.bin
/
fish
/
881-890
/
ff885
/
false
/
src
/
fac.f
< prev
next >
Wrap
Text File
|
1993-07-16
|
184b
|
11 lines
{ faculty program in false! }
[$1=$[\%1\]?~[$1-f;!*]?]f: { fac() in false }
"calculate the faculty of [1..8]: "
ß^ß'0-$$0>~\8>|$
"result: "
~[\f;!.]?
["illegal input!"]?"
"