progs/fun/add.fun
author Christian Urban <christian.urban@kcl.ac.uk>
Wed, 21 Feb 2024 09:14:12 +0000
changeset 958 6caee1c0222e
parent 814 0db5961fe39f
permissions -rw-r--r--
updated and added pascal.while file



def add(x, y) =
  if x == 0 then y else 1 + (add(x - 1, y));

def addT(x, y) =
  if x == 0 then y else addT(x - 1, y + 1);

(write(add(1000, 1000)); addT(100000,100000))