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/Apply-a-callback-to-an-array/Oz/apply-a-callback-to-an-array.oz
+++ b/Task/Apply-a-callback-to-an-array/Oz/apply-a-callback-to-an-array.oz
@ -0,0 +1,13 @@
+declare
+  fun{Square A}
+    A*A
+  end
+
+  Lst = [1 2 3 4 5]
+
+  %% apply a PROCEDURE to every element
+  {ForAll Lst Show}
+
+  %% apply a FUNCTION to every element
+  Result = {Map Lst Square}
+  {Show Result}