r13 w = map (\c -> chr ((((ord c + 13) - 97) `mod` 26) + 97) w

Haskell Shortest Rot13

by https://www.google.com/accounts/o8/id?id=AItOawkpAfEP31fRzpQ5wtVTGKZAHPi6zN5xh4w, November 08, 2010 22:40, 2 refactorings, tagged with short

Compo shortest rot 13

Cf3ca7d0045e5f823c16d5f6b7687060 Talk 
g = getLine
r = toRational
c = concat
...

Haskell EGCD

by https://www.google.com/accounts/o8/id?id=AItOawkpAfEP31fRzpQ5wtVTGKZAHPi6zN5xh4w, November 08, 2010 08:18, No refactoring, tagged with short

please refactor to less cha...

Cf3ca7d0045e5f823c16d5f6b7687060 Talk 
compress :: [Int] -> [[Int]]
compress (x:xs) = let (y,ys) = walk x xs
                  in [x,y]:compress ys
...

Haskell compressing an array of int...

by sargon, April 15, 2009 16:52, 6 refactorings, tagged with short

I took the idea from "Alec ...

55ca8e1248605bf5e1819ce2c47c160f Talk