This page is not created by, affiliated with, or supported by Slack Technologies, Inc.
2017-09-11
Channels
- # aleph (4)
- # beginners (68)
- # boot (21)
- # chestnut (1)
- # cljs-dev (72)
- # clojure (64)
- # clojure-austin (9)
- # clojure-dusseldorf (16)
- # clojure-gamedev (2)
- # clojure-italy (32)
- # clojure-russia (80)
- # clojure-spec (9)
- # clojure-uk (20)
- # clojurescript (105)
- # cursive (5)
- # data-science (5)
- # datomic (23)
- # defnpodcast (3)
- # emacs (22)
- # fulcro (2)
- # graphql (63)
- # hoplon (7)
- # lein-figwheel (17)
- # lumo (63)
- # mount (2)
- # nrepl (4)
- # off-topic (66)
- # om (6)
- # onyx (3)
- # portkey (54)
- # re-frame (12)
- # reagent (12)
- # specter (42)
- # uncomplicate (1)
- # unrepl (38)
- # vim (9)
- # yada (3)
giorno!
new w-e stavo giocherellando col problema della trapped water, visto che su rosetta code mancava la soluzione in clojure
rosetta code e' down al momento, comunque il problema e' http://www.geeksforgeeks.org/trapping-rain-water/
e la mia soluzione e' https://gist.github.com/skuro/db435e15ceb40404da5598bc0fb92c83
volevo vedere cosa veniva fuori dalla mente collettiva dei clojurians italiani a riguardo 🙂
@skuro uh uh, adoro questi "problemi"
ma prima di sera non credo riuscirò a buttar giù qualcosa
resisterò alla tentazione di guardare la tua soluzione 😉
e' tutto nato dalla discussione su linkedin riguardo a questo paper https://drive.google.com/file/d/0B59Tysg-nEQZSXRqVjJmQjZyVXc/view
È un paper un po’ strano
Mi sembra un po’ flame-y
non puoi scrivere un paper dove usi l'aggettivo "hipster" per descrivere una qualsivoglia tecnologia e pretendere di essere preso sul serio
@skuro sbaglio o hai compiuto gli anni di recente?
@mdallastella ci dev'essere un qualche glitch in the matrix, sei il secondo oggi che arriva un giorno in anticipo 🙂
@skuro, ok, lo schedulo per domani 😄
@skuro forse Linkedin
Fallire è esperienza
Istituiamo il Saturday Night Algorithm!
eccoci:
(defn trappable [specs]
(letfn [(unit [s]
(take (apply max specs)
(concat (repeat s 0) (repeat 1))))
(trim [row]
(drop-while
(complement zero?)
(reverse (drop-while (complement zero?) row))))]
(->> specs
(map unit)
(apply map list)
(mapcat trim)
(reduce +))))
(trappable [3 0 0 2 0 4]) ; => 10
(trappable [0 1 0 2 1 0 1 3 2 1 2 1]) ; => 6