lama_byterun/regression/test012.expr

mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-06 14:58:50 +00:00
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
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`