LED es mi nuevo Hello World - Tiempo de Clojure

Mientras más aprendo Clojure...más me gusta...y tanto me está gustante que no pude contener y comencé a trabajar en mi adorada aplicación de [LED_Numbers"...

Luego de haber hecho que el generador de Fibonnaci funcione...este no fué tan difícil como me lo esperaba...en realidad creo que lentamente me estoy acostumbrando a Clojure...lo cual siempre es bueno cuando se aprende un nuevo lenguaje -;)

Aquí está el código fuente...

LED_Numbers.clj
(def leds {"0" (list " _ " "| | " "|_| ") "1" (list " " "| " "| ") "2" (list " _ " " _| " "|_ ") "3" (list "_ " "_| " "_| ") "4" (list " " "|_| " " | ") "5" (list " _ " "|_ " " _| ") "6" (list " _ " "|_ " "|_| ") "7" (list "_ " " | " " | ") "8" (list " _ " "|_| " "|_| ") "9" (list " _ " "|_| " " _| ")}) (defn toList [number] (map str(seq(str number)))) (defn get_led [x n num] (cond (> (count x) 0) (concat (nth (get leds (first x)) n) (get_led (rest x) n num)) (and (= (count x) 0) (< n 2)) (concat "" "\n" (get_led (toList num) (+ 1 n) num)) (and (= (count x) 0) (= n 2)) (concat "" "\n"))) (defn showLED [num] (do (print (apply str (get_led (toList num) 0 num))))(symbol ""))

Quieren verlo en acción? Por supuesto que quieren -:)

Bueno...hora de regresar y seguir aprendiendo -:D

Saludos,

Blag.
Development Culture.