A-M baby

Task/Hash-from-two-arrays/Smalltalk/hash-from-two-arrays-1.st

@@ -0,0 +1,13 @@
+Array extend [
+  dictionaryWithValues: array [ |d|
+    d := Dictionary new.
+    1 to: ((self size) min: (array size)) do: [:i|
+      d at: (self at: i) put: (array at: i).
+    ].
+    ^ d
+  ]
+].
+
+
+({ 'red' . 'one' . 'two' }
+ dictionaryWithValues: { '#ff0000'. 1. 2 }) displayNl.

Task/Hash-from-two-arrays/Smalltalk/hash-from-two-arrays-2.st

@@ -0,0 +1,3 @@
+Dictionary
+    withKeys:#('one' 'two' 'three')
+    andValues:#('eins' 'zwei' 'drei')

Task/Hash-from-two-arrays/Smalltalk/hash-from-two-arrays-3.st

@@ -0,0 +1 @@
+Dictionary withAssociations:{ 'one'->1 . 'two'->2 . 'three'->3 }