examples/shootout/takfp.pir

   1 #!./parrot -C
   2 #
   3 # ./parrot -C takfp.pir N         (N = 10 for shootout)
   4 # by Joshua Isom
   5 # changed default value to N=7 (shootout default before being deprecated)
   6 # anyway N=10 froze my laptop. Karl Forner
   7
   8 .sub main :main
   9         .param pmc argv
  10         .local int argc, n
  11         argc = argv
  12         n = 7
  13         unless argc == 2 goto argsok
  14         $S0 = argv[1]
  15         n = $S0
  16 argsok:
  17         .local float f
  18         $N0 = n
  19         $N0 *= 3
  20         $N1 = n
  21         $N1 *= 2
  22         $N2 = n
  23         $N2 *= 1
  24         f = Tak($N0, $N1, $N2)
  25         $P0 = new .FixedFloatArray
  26         $P0 = 1
  27         $P0[0] = f
  28         $S0 = sprintf "%.1f\n", $P0
  29         print $S0
  30 .end
  31
  32 .sub Tak
  33         .param float x
  34         .param float y
  35         .param float z
  36         unless y >= x goto endif
  37         .return(z)
  38 endif:
  39         .local float tmp
  40         tmp = x - 1
  41         $N0 = Tak(tmp, y, z)
  42         tmp = y - 1
  43         $N1 = Tak(tmp, z, x)
  44         tmp = z - 1
  45         $N2 = Tak(tmp, x, y)
  46         .return Tak($N0, $N1, $N2)
  47 .end
  48
  49
  50 # Local Variables:
  51 #   mode: pir
  52 #   fill-column: 100
  53 # End:
  54 # vim: expandtab shiftwidth=4: