From 8848ad8a546627e1e935c46950c7a9df759b320e Mon Sep 17 00:00:00 2001 From: Kimplul Date: Thu, 13 Mar 2025 19:38:52 +0200 Subject: increase priority for loops --- examples/global-loop.ph | 9 +++++++++ examples/local-loop.ph | 12 ++++++++++++ examples/ok-loop-huge.ph | 9 --------- 3 files changed, 21 insertions(+), 9 deletions(-) create mode 100644 examples/global-loop.ph create mode 100644 examples/local-loop.ph delete mode 100644 examples/ok-loop-huge.ph (limited to 'examples') diff --git a/examples/global-loop.ph b/examples/global-loop.ph new file mode 100644 index 0000000..2381537 --- /dev/null +++ b/examples/global-loop.ph @@ -0,0 +1,9 @@ +var sum = 0 +var idx = 0 + +do + sum = sum + idx, + idx = idx + 1 +until idx = 1000000001, + +print sum diff --git a/examples/local-loop.ph b/examples/local-loop.ph new file mode 100644 index 0000000..2b7d870 --- /dev/null +++ b/examples/local-loop.ph @@ -0,0 +1,12 @@ +procedure SUM{num[int]} return int +var sum = 0 +var idx = 0 +is + do + sum = sum + idx, + idx = idx + 1 + until idx = num, + return sum +end procedure + +print SUM(1000000001) diff --git a/examples/ok-loop-huge.ph b/examples/ok-loop-huge.ph deleted file mode 100644 index 2381537..0000000 --- a/examples/ok-loop-huge.ph +++ /dev/null @@ -1,9 +0,0 @@ -var sum = 0 -var idx = 0 - -do - sum = sum + idx, - idx = idx + 1 -until idx = 1000000001, - -print sum -- cgit v1.2.3