4 ms·
Just for fun, this part (et, i) <- [(xi - 7, xi - 11), (xi - 11, xi - 7), (xi + 7, xi + 11), (xi + 11, xi + 7)] Could be written as
by danidiaz 10y ago
Just for fun, this part
(et, i) <- [(xi - 7, xi - 11), (xi - 11, xi - 7),
(xi + 7, xi + 11), (xi + 11, xi + 7)]
Could be written as
(et,i) <- do (a,b) <- let tuple = (7,11) in [tuple, swap tuple]
sign <- [id,negate]
[(xi+sign a,xi+sign b)]