Mercurial > repo

view src/ploki/examples/fac.pk @ 8916:0234daffd946

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<oerjan> addquote <int-e> I couldn\'t help thinking that maybe if one considers the ramifications in full detail it will turn out that overthinking is often not helpful and therefore, not something to be proud of.
author HackBot
date Sun, 14 Aug 2016 02:31:47 +0000
parents ac0403686959
children
line wrap: on
line source

"calculate the faculty of [1..8]: "ß{
REM faculty program in false and ploki
REM Lukas Mai, 11.09.2003
REM} [$1=$[\%1\]?~[$1-f;!*]?]f: ^'0-$$0>~\8>|$ {
LET n @LEGS(\EING)
REM}
"result: "ß{
IF n < 1 | (n > 8)
  REM} ~[\f;!.]?[
  "illegal input"ß{
ELSE
  LET f 1
  FOR loop IF n > 0
    LET f f * n
    LET n n - 1
    NEXT loop
  FI
  WUNT f
FI
REM} ]?"
"