Mercurial > repos > tabletprog

view samples/fib.tp @ 58:7b454d100dc8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add length method to array. Pass array of arguments to main method. Initialize parent field of environment struct for closures
author Mike Pavone <pavone@retrodev.com>
date Sat, 14 Jul 2012 00:35:50 -0700
parents 9dd370530f69
children 3a169ebb3224
line wrap: on
line source

#{
true <- #{
  if:else <- :self trueblock :elseblock {
    trueblock:
  }
}

false <- #{
  if:else <- :self trueblock :elseblock {
    elseblock:
  }
}

fib <- :n {
  if: n < 2 {
    1
  } else: {
    (fib: n-1) + (fib: n-2)
  }
}

main <- {
  print: (string: (fib: 30)) . "\n"
}

}