clj-demo

core.clj

(ns clj-demo.core
  (:require [cheshire.core :as json]))

(foo :toto)

(defn factoriel
  [n]
  (->> n range (map inc) (reduce *)))

(factoriel 3)

(map inc (range 2))

(def notif
  {:aps {:body "A body"
         :title "A title"}
   :badge 1
   :sound "default"})

(:sound {})

(println notif)
(println (json/generate-string notif))

(:a (json/parse-string "{\"a\":1}" true))

(update-in notif [:badge] inc)

(-> notif
    (update-in [:badge] inc)
    (dissoc :sound))

(def users
  [{:name "Daniel" :meals [:beef :pork :chicken]}
   {:name "Matthieu" :meals [:chicken :crocodile]}
   {:name "Olivier" :meals []}])

(->> users
     (filter #(= (:name %) "Daniel"))
     first)

(->> users
     (filter (comp (partial = "Daniel") :name)))

(->> users
     (remove #(empty? (:meals %))))

(->> users
     (filter #(empty? (:meals %))))


(->> users
     (map :meals)
     flatten
     distinct)

(->> users
     (map :meals)
     flatten
     distinct
     count)