langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Multiple-distinct-objects/Oz/multiple-distinct-objects-2.oz
+++ b/Task/Multiple-distinct-objects/Oz/multiple-distinct-objects-2.oz
@ -0,0 +1,7 @@
+declare
+  Arr = {Array.new 0 10 {OS.rand}} %% WRONG: contains ten times the same number
+in
+  %% CORRECT: fill it with ten (probably) different numbers
+  for I in {Array.low Arr}..{Array.high Arr} do
+     Arr.I := {OS.rand}
+  end