lama_byterun/regression/test016.expr

mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-09 00:08:44 +00:00
global s, n;

n := read ();

s := 1;

repeat

  s := s * n;
  n := n - 1
  
until (n == 0);

write (s)
Global definitions; regression tests fixed 2019-09-19 18:37:08 +03:00			`global s, n;`

Strings/arrays/builtins in int/sm 2018-04-25 01:06:18 +03:00			`n := read ();`
Control constructs 2018-03-20 23:13:51 +03:00
			`s := 1;`

			`repeat`

			`s := s * n;`
			`n := n - 1`

Better value control 2019-04-10 22:15:08 +03:00			`until (n == 0);`
Control constructs 2018-03-20 23:13:51 +03:00
			`write (s)`