Mit navn det står i Haskell

Gækkebrev.hs

import List

data AllToTheRight = AllToTheRight {
      clown  :: Int
    , joker  :: Int
    } deriving (Show)

el h l a = reverse b where
    (_, b) = foldl(\(a,b) h->(a+h,(l!!a):b))(a,[])h

doMe' t = map(\x-> -x*((mod x 2)*2-1)) a where
    a = foldl(\h (a,b)->(floor$a**b):h)[] t
doMe = doMe'.(\x->(zip.reverse)x x)

main = do
  putStr$(el(t++[42]) l$fs!!4)
        where l = sort$show$ AllToTheRight 42 21
              t = foldl(\a b->a++b)[] $
                  transpose[doMe[2,3],[-10,16]]
              fs = 1:[i*(fs!!(i-1))|i<-[1..]]