Haskell vs. D

[thedeemon]

A nice little practical comparison:
http://leonardo-m.livejournal.com/109201.html

Comments

[109]

13 - curly bracket alone does not count:

using System;
using System.IO;
using System.Linq;
class Program
{
static void Main(string[] args)
{
File.ReadAllText(args[0]).
Split("all non-alpha characters here".ToCharArray()).
GroupBy(x => x, (x, y) => new {word = x, count = y.Count()}).
OrderBy(x => x.count).
Reverse().
Take(int.Parse(args[1])).
ToList().
ForEach(x => Console.WriteLine(x.word, "=", x.count));
}
}а если бы в IEnumerable был метод ForEach, то и 12. глубинный смысл отсуствия там оного меня угнетает.

[109]

стормозил. надо OrderBy(x => -x.count), тогда Reverse не надо, ещё на линию меньше.

[inv2004]

Ещё A-Z в a-z забыли.

[109]

ах ну да, у D все импорты за одну строчку считаются. тогда 10 :)

[inv2004]

Я тоже не пробежал мимо, и запостил решение на J:

3 {. \:~ (#;{.)/.~ ;:

если полное, то такое:
lc=:(LATIN_LC,a.) {~ (LATIN_UC,a.) i. ]
nl=:' ' ((I.@:(0=e.&LATIN))@:]) } ]
3 {. \:~ (#;{.)/.~ ;: lc nl freads '1.txt'