lama_byterun/regression/test016.expr

mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-06 06:48:48 +00:00
local s, n;

n := read ();

s := 1;

repeat

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

write (s)
Generalized state 2019-09-29 02:47:07 +03:00			`local s, 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 ();`
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)`