James@
Waterpoint (Xplat on Freenode) mentioned an interesting problem: write an elegant point-free expression to compute the diagonal of a list of lists (that is, from [[00, 01, 02, ...], [10, 11, 12, ...], ...] obtain [00, 11, ...]).
His version:
diag = (map head) . (foldr (flip ((flip (:)) . (map tail))) [])
My version, which needs a non-
(
Read more... )