languages/jako/examples/fact.jako

   1 #
   2 # fact.jako
   3 #
   4 # Some simple code to print some factorials
   5 #
   6 # Based on fact.pasm originally be Leon Brocard <acme@astray.com> 2001-09-14.
   7 #
   8 # Copyright (C) 2001-2005, The Perl Foundation.
   9 # This program is free software. It is subject to the same
  10 # license as the Parrot interpreter.
  11 #
  12 # $Id$
  13 #
  14
  15 use sys;
  16
  17 const int N = 15;
  18
  19
  20 #
  21 # fact()
  22 #
  23
  24 sub int fact(int n) {
  25   var int i =  0;
  26   var int f =  1;
  27
  28   while(i <= n) {
  29     i++;
  30     f *= i;
  31   }
  32
  33   return f;
  34 }
  35
  36
  37 #
  38 # MAIN PROGRAM:
  39 #
  40
  41 var int f;
  42
  43 sys::print("Algorithm F1 (The factorial function)\n");
  44 sys::print("    Calculating fact($N) = ...\n");
  45
  46 f = fact(N);
  47
  48 sys::print("    ... = $f\n");
  49