June 2018 Update

Task/Letter-frequency/Aime/letter-frequency-1.aime

@@ -0,0 +1,15 @@
+file f;
+index x;
+integer c;
+
+f.affix("unixdict.txt");
+
+while ((c = f.pick) ^ -1) {
+    x[c] += 1;
+}
+
+c = 'A';
+while (c <= 'Z') {
+    o_form("%c: /w5/\n", c, x[c] += x[c + 'a' - 'A'] += 0);
+    c += 1;
+}

Task/Letter-frequency/Aime/letter-frequency-2.aime

@@ -0,0 +1,13 @@
+file f;
+index x;
+integer c, n;
+
+f.affix("unixdict.txt");
+
+while ((c = f.pick) ^ -1) {
+    x[c] += 1;
+}
+
+for (c, n in x) {
+    o_form("%c: /w5/\n", c, n);
+}

Task/Letter-frequency/BaCon/letter-frequency.bacon

@@ -0,0 +1,5 @@
+txt$ = LOAD$("bible.txt")
+
+FOR x = 97 TO 122
+    PRINT CHR$(x-32), " ", CHR$(x), " : ", COUNT(txt$, x-32), " - ", COUNT(txt$, x)
+NEXT

Task/Letter-frequency/Julia/letter-frequency.julia

@@ -1,5 +1,7 @@
-function freq(file)
-  h = Dict{Char, Integer}()
-  for x in open(readstring ,file) h[x] = get(h,x,0)+1 end
-  sort(collect(h))
+using DataStructures
+
+function letterfreq(file::AbstractString; fltr::Function=(_) -> true)
+    sort(Dict(counter(filter(fltr, readstring(file)))))
 end
+
+display(letterfreq("src/Letter_frequency.jl"; fltr=isalpha))

Task/Letter-frequency/Perl-6/letter-frequency.pl6

@@ -1 +1,9 @@
-say bag lines».comb
+.&ws.say for slurp.comb.Bag.sort: -*.value;
+
+sub ws ($pair) {
+    $pair.key ~~ /\n/
+    ?? ('NEW LINE' => $pair.value)
+    !! $pair.key ~~ /\s/
+    ?? ($pair.key.uniname => $pair.value)
+    !! $pair
+}