lama_byterun/regression/test013.expr

global n = read ();

repeat
  
  if n == 1 then write (0)
elif n == 2 then write (1)
elif n == 3 then write (2)
elif n == 4 then write (3)
            else write (10)
  fi;

  if n >= 5 then write (11) fi;

  n := n - 1

until (n == 0)
Functions as values (no closures yet, and no tests) 2019-09-22 20:15:15 +03:00			`global n = read ();`
Control constructs 2018-03-20 23:13:51 +03:00
			`repeat`

			`if n == 1 then write (0)`
			`elif n == 2 then write (1)`
			`elif n == 3 then write (2)`
			`elif n == 4 then write (3)`
			`else write (10)`
			`fi;`

			`if n >= 5 then write (11) fi;`

			`n := n - 1`

Better value control 2019-04-10 22:15:08 +03:00			`until (n == 0)`