secretsanta.hs

import System.Random

type Person = String
type Party = [(Person,Person)]

people = ["Sergey", "Eugeny", "Georgy", "Vsevolod", "Daniil", "Murat"]

rshift :: IO Int
rshift = randomRIO (1::Int, (length people) - 2)

bias :: [Person] -> Int -> [Person]
bias people i = (drop i people) ++ (take i people)

organize :: [Person] -> [Person] -> Party
organize whos whoms = zip whos whoms

main = rshift >>= \i -> print $ organize people (bias people i)