lama_byterun/regression/test012.lama

var n;

n := read ();
while n >= 0 do
  if n > 1
  then
    write (0);
    if n == 3 then write (0) else write (1) fi
  else
    write (1);
    if n > 0 then write (0) else write (1) fi
  fi;
  n := n - 1
od
local -> var; scope reformatted; singleton is killed finally 2021-01-31 22:25:31 +03:00			`var n;`
Global definitions; regression tests fixed 2019-09-19 18:37:08 +03:00
Strings/arrays/builtins in int/sm 2018-04-25 01:06:18 +03:00			`n := read ();`
Implemented control constructs 2018-03-20 20:30:58 +03:00			`while n >= 0 do`
			`if n > 1`
			`then`
			`write (0);`
			`if n == 3 then write (0) else write (1) fi`
			`else`
			`write (1);`
			`if n > 0 then write (0) else write (1) fi`
			`fi;`
			`n := n - 1`
			`od`