devclub.eu quiz

[lafy]

На devclub.eu куча решений к quiz-у, который предложил Андрей Солнцев.

Задание: Напечатать на экране следующее:
1
2-1
1-2-3
4-3-2-1
1-2-3-4-5
6-5-4-3-2-1
(Естественно, вместо 6 может быть любое число).

Comments

[jdevelop]

import Data.List as DL

dumpLines :: Int -> [String]
dumpLines n = DL.map step [1..n]
where
step x | odd x = DL.concat . DL.intersperse "-" $ DL.map show [1..x]
| even x = DL.concat . DL.intersperse "-" . DL.reverse $ DL.map show [1..x]
Быстрое решение в лоб, вероятно есть более короткие )

[lafy]

О, это же pattern matching?

[jdevelop]

нет, тут guards

[lafy]

Ок, я про guards ничего не знаю..

[fidelite]

ой "вырезано цензурой"!

:))))))))))))))))))))))))))))))))))))))))

[lafy]

Я все могу объяснить! ))

[fidelite]

если только доходчиво :)

Хе-хе

[asolntsev]

"но читабельность, как ни странно, сохранена - любой программист сможет всегда вызывать macroexpand и понять, как работает тот или иной макрос"

Все уловили тут тонкую кибернетическую хитрость?
Код как бы должен быть читаемым сам по себе, без запускания чего бы то ни было...

Re: Хе-хе

[lafy]

Во первых IDE может делать macroexpand самостоятельно. Во вторых - я говорю о читаемости для пользователя функции, а не для ее разработчика. В этом случае должно быть:
а) хорошее имя
б) хороший docstring/javadoc
в) понятная логика "как оно работает"

Без запускания чего-либо ты сможешь прочитать только имя. Для javadoc-а нужно будет его сгенерить (а ведь он может и не идти в комплекте с софтом). Здесь docstring укладывает его на лопатки. Для white-box reasoning-а читабельность макроса будет лучше, чем читабельность математических, тринарных i%2? ..: .. и прочих хитрых манипуляций. Единственное к чему можно придраться в макросах - они сложнее для поддержки и конкретно этот макрос не скалируем на большие объемы данных. Но в данном случае это несущественные требования :)

[alexott]

а почему не в лоб, вот так, например:

(require '[clojure.contrib.str-utils :as str])
(defn print-ranges [n]
(doall (for [s (range 1 (inc n))]
(println (str/str-join "-" ((if (zero? (mod s 2)) reverse identity)
(range 1 (inc s))))))))

[lafy]

Я почти так и сделал сначала (разве что использовал even? вместо mod и не использовал identity. Но в таком виде код проигрывает читабельности груви, поэтому пришлось генерить print выражения, чтобы хоть как-то выделиться перед ним :)

У меня получилось очень похоже

[edbond]

(defn j
[x]
(doall (for [a (range 1 (inc x))
:let [f (if (even? a) reverse identity)]]
(->> (range 1 (inc a))
(f)
(interpose "-")
(apply str)
(println)))))

Если убрать последний println то ф-я вернет список
("1" "2-1" "1-2-3" "4-3-2-1" "1-2-3-4-5" "6-5-4-3-2-1")