clojure-greece 2017-12-03

γμτ το σημερινο advent το εκανα με loop-recur

oxiiii

blame SICP 😛

το ειδες σταθη;

to koitazw twra

first part:

(->> ss
     (map #(- (apply max %)
              (apply min %)))
     (apply +))

αυτο ειναι το χθεσινο!

το σημερινο ηταν πιο weird

a day 2 den ekana

katse na thn perasw gia na dw thn 3

wx arxisan ta dyskola 😄

ναι δεν εχει σχεση με τα προηγουμενα

εγω ειδικα το πηγα παραξενα το α' μερος

και καηκα λιγο

den mou rxetai kati ayth th stigmh

tha to skeftw

θελει χρονο και ορεξη, no worries

το συζηταμε κι απο κοντα

second part tou xtesinou:

(->> ss
     (map #(->> (for [x %
                      y %
                      :when (not= x y)]
                  [(/ x y)
                   (/ y x)])
                (apply concat)
                (filter int?)))
     (map first)
     (apply +))

ωραιο

εχω σκουριασει τοσο

που ξεχασα την υπαρξη της for

και το εκανα με combinatorics

e ntaksei logiko an exeis kairo na thn piaseis!