Ideone.com

download

copy

data Player = Player Char Int
 
instance Show Player where
    show (Player name _) = show [name]
 
--Modify the line below if you want to
players = cutinto2 $ zipWith Player ['A'..'R'] [76, 122, 90, 105, 117, 78, 84, 111, 124, 71, 77, 118, 117, 78, 106, 89, 114, 81]
 
choose :: [b] -> Int -> [[b]]
_      `choose` 0       = [[]]
[]     `choose` _       =  []
(x:xs) `choose` k       =  (x:) `fmap` (xs `choose` (k-1)) ++ xs `choose` k
 
cutinto2 :: [b] -> [[b]]
cutinto2 [x,y] = [[x,y]]
cutinto2 (x:y:xs) = [[x,y]] ++ cutinto2 xs
 
value (Player _ x) = x
 
combies =  foldr (++) [] (sequence `map` choose players 5)
 
main = do
	print $ length $ results
	print results
--Modify the line below if you need it
	where results = filter (\p -> (sum(map value p) <= 500) && (sum(map value p) >= 495) ) combies

Success #stdin #stdout 0s 4600KB

stdin

copy

Standard input is empty

stdout

copy

224
[["B","C","F","G","I"],["B","D","E","G","J"],["A","D","E","G","L"],["A","D","E","G","M"],["A","C","E","H","O"],["A","D","E","H","P"],["B","D","F","G","O"],["A","D","E","G","Q"],["B","D","F","H","R"],["A","D","E","I","K"],["A","D","E","I","N"],["A","D","F","I","M"],["A","C","E","I","P"],["A","D","F","I","Q"],["B","C","F","I","R"],["B","D","E","J","R"],["B","D","E","K","N"],["B","D","F","K","M"],["B","C","E","K","P"],["B","C","F","L","P"],["A","D","E","L","R"],["B","D","F","K","Q"],["B","C","E","N","P"],["B","C","F","M","P"],["A","D","E","M","R"],["B","D","F","N","Q"],["B","C","E","P","R"],["B","C","G","I","K"],["B","D","G","J","L"],["B","C","G","I","N"],["B","D","G","J","M"],["A","D","G","I","O"],["B","C","H","J","O"],["B","D","H","J","P"],["A","D","H","I","R"],["B","D","G","J","Q"],["A","D","G","L","M"],["A","D","H","L","P"],["A","D","G","L","Q"],["B","C","G","L","R"],["B","D","H","K","R"],["A","C","H","M","O"],["A","D","H","M","P"],["B","D","G","N","O"],["A","D","G","M","Q"],["B","D","H","N","R"],["A","C","H","O","Q"],["A","D","H","P","Q"],["B","C","G","P","Q"],["B","D","G","O","R"],["A","D","I","K","M"],["A","C","I","L","P"],["A","D","I","K","Q"],["B","D","J","L","R"],["A","C","I","M","P"],["A","D","I","N","Q"],["B","C","I","N","R"],["B","D","J","M","R"],["B","C","K","M","P"],["B","C","L","N","P"],["A","D","L","M","R"],["B","D","K","N","Q"],["B","C","L","P","R"],["B","C","M","P","R"],["B","E","H","J","K"],["B","F","H","J","L"],["B","E","H","J","N"],["B","F","H","J","M"],["A","F","H","I","O"],["B","E","G","J","O"],["B","F","G","I","P"],["B","F","H","J","Q"],["A","E","H","K","M"],["A","E","H","L","N"],["A","F","H","L","M"],["A","E","H","K","Q"],["A","F","H","L","Q"],["A","E","G","M","O"],["B","F","H","N","O"],["A","E","H","N","Q"],["A","F","H","M","Q"],["A","E","G","O","Q"],["B","F","H","O","R"],["A","E","J","L","M"],["A","E","I","K","O"],["B","F","J","L","O"],["A","E","J","L","Q"],["A","E","J","M","Q"],["A","F","I","O","Q"],["B","E","J","O","R"],["A","E","L","N","O"],["A","F","L","M","O"],["B","E","K","N","O"],["B","F","K","M","O"],["A","E","L","O","R"],["B","F","K","O","Q"],["A","E","M","O","R"],["B","F","N","O","Q"],["B","H","J","K","M"],["B","H","J","L","N"],["B","G","I","K","P"],["B","H","J","K","Q"],["A","H","I","N","O"],["B","G","I","N","P"],["B","G","J","M","O"],["B","H","J","N","Q"],["A","H","I","O","R"],["B","G","I","P","R"],["B","G","J","O","Q"],["A","H","K","M","Q"],["A","H","L","N","Q"],["A","G","L","O","Q"],["B","H","K","O","R"],["A","G","M","O","Q"],["B","H","N","O","R"],["A","I","K","M","O"],["B","J","L","N","O"],["A","J","L","M","Q"],["A","I","K","O","Q"],["B","J","L","O","R"],["A","I","N","O","Q"],["B","J","M","O","R"],["A","L","M","O","R"],["B","K","N","O","Q"],["D","E","G","J","L"],["D","F","H","I","K"],["D","F","H","I","N"],["C","E","H","J","O"],["D","F","G","I","O"],["C","E","G","I","R"],["D","F","H","I","R"],["D","E","G","K","M"],["C","E","G","L","P"],["D","E","H","K","P"],["D","E","G","K","Q"],["D","F","G","L","Q"],["C","E","G","M","P"],["D","E","H","N","P"],["D","F","H","M","P"],["D","E","G","N","Q"],["D","F","G","M","Q"],["C","F","H","O","Q"],["D","F","H","P","Q"],["C","E","I","K","P"],["C","F","I","L","P"],["D","E","J","L","P"],["D","F","I","K","Q"],["C","E","I","N","P"],["C","F","I","M","P"],["D","E","J","M","P"],["D","F","I","N","Q"],["C","E","J","O","Q"],["C","F","I","P","Q"],["D","E","J","P","Q"],["D","E","K","M","R"],["D","E","L","N","R"],["D","F","L","M","R"],["C","E","L","P","R"],["D","G","J","L","M"],["D","H","I","K","N"],["C","H","J","L","O"],["D","G","I","K","O"],["C","G","I","L","R"],["D","H","I","K","R"],["C","H","J","M","O"],["D","G","I","N","O"],["C","G","I","M","R"],["D","H","I","N","R"],["C","H","I","P","R"],["D","G","I","O","R"],["C","G","L","M","P"],["D","H","K","M","P"],["D","G","K","M","Q"],["D","G","L","N","Q"],["C","G","L","P","Q"],["C","H","K","O","Q"],["D","H","K","P","Q"],["C","H","N","O","Q"],["D","H","N","P","Q"],["C","I","K","M","P"],["C","I","L","N","P"],["D","J","L","M","P"],["D","I","K","N","Q"],["C","J","L","O","Q"],["D","J","L","P","Q"],["C","I","N","P","Q"],["C","J","M","O","Q"],["D","J","M","P","Q"],["C","L","M","P","R"],["E","H","J","L","N"],["F","H","J","L","M"],["E","G","J","L","O"],["F","H","I","K","O"],["E","H","J","L","R"],["E","G","J","M","O"],["F","H","I","N","O"],["E","H","J","M","R"],["E","G","I","P","R"],["F","H","I","O","R"],["E","H","K","N","Q"],["F","H","K","M","Q"],["F","H","L","N","Q"],["E","G","K","O","Q"],["F","G","L","O","Q"],["E","G","N","O","Q"],["F","G","M","O","Q"],["E","J","K","M","Q"],["E","J","L","N","Q"],["F","J","L","M","Q"],["F","I","K","O","Q"],["F","I","N","O","Q"],["E","K","M","O","R"],["E","L","N","O","R"],["F","L","M","O","R"],["G","J","L","M","O"],["H","I","K","N","O"],["H","J","L","M","R"],["G","I","L","P","R"],["H","I","K","O","R"],["G","I","M","P","R"],["H","I","N","O","R"],["G","K","M","O","Q"],["G","L","N","O","Q"],["I","K","N","O","Q"]]

Discover > Sphere Engine API

Discover > IDE Widget

Discover > Sphere Engine API

Discover > IDE Widget

Choose your language