Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
14 lines (7 sloc) 209 Bytes
module ListComprehension where
import List (delete)
permutation [] = [[]]
permutation xs = [x:ys | x <- xs, ys <- permutation (delete x xs)]
xs = [1..2]
ys = [3..4]
a = [ (x, y) | x <- xs | y <- ys ]
Jump to Line
Something went wrong with that request. Please try again.