Data commit

Task/Anagrams/Smalltalk/anagrams-1.st

@@ -0,0 +1,7 @@
+list:= (FillInTheBlank request: 'myMessageBoxTitle') subStrings: String crlf.
+dict:= Dictionary new.
+list do: [:val|
+	(dict at: val copy sort ifAbsent: [dict at: val copy sort put: OrderedCollection new])
+		add: val.
+	].
+sorted:=dict asSortedCollection: [:a :b| a size > b size].

Task/Anagrams/Smalltalk/anagrams-2.st

@@ -0,0 +1,10 @@
+d := Dictionary new.
+'unixdict.txt' asFilename
+    readingLinesDo:[:eachWord |
+      (d at:eachWord copy sort ifAbsentPut:[OrderedCollection new]) add:eachWord
+    ].
+
+((d values select:[:s | s size > 1])
+  sortBySelector:#size)
+    reverse
+      do:[:s | s printCR]

Task/Anagrams/Smalltalk/anagrams-3.st

@@ -0,0 +1 @@
+'http://wiki.puzzlers.org/pub/wordlists/unixdict.txt' asURI contents asCollectionOfLines do:[:eachWord | ...