|
|
От: |
Кодт
|
|
| Дата: | 06.04.12 10:04 | ||
| Оценка: | +1 | ||
diffs xs =
do
let ixs = zip [1..] xs
i,x <- ixs
j,y <- ixs
when (i<j)
return abs(x-y)
diffs xs = [ abs(x-y) | (i,x) <- ixs, (j,y) <- ixs, (i<j) ] where ixs = zip [1..] xs
Перекуём баги на фичи!