viebel

(s/def ::local-name (s/and simple-symbol? #(not= '& %)))

(s/def ::binding-form
  (s/or :sym ::local-name
        :seq ::seq-binding-form
        :map ::map-binding-form))

;; sequential destructuring
(s/def ::seq-binding-form
  (s/and vector?

viebel

(defn read-input []
  (loop [] 
    (let [input (read-line)]
      (when-not (= ":done" input)) 
      (println (str "You entered: >>" input "<<")) 
      (recur))))

viebel

(ns my.chat
  (:require [clojure.string :as str]))
            

(def rules
  [["hello" "hello you"]
   ["bye" "see you soon"]
   ["my name is Riccardo" "nice to meet you Riccardo"]])

(defn respond-fixed [input]

viebel

(ns viebel.gist-983676a98aee0991cfb002a67676602f.raw.split-expressions
  (:require [cljs.tools.reader :as r]
            [cljs.tools.reader.reader-types :as rt]
            [clojure.string :as s]))

(defn- read-chars
  [reader]
  (loop [res []]
    (if-let [ch (rt/read-char reader)]
      (recur (conj res ch))

viebel

(ns viebel.gist-368d3bec58d3ec47e935ad488bafb600
  (:require [cljs.tools.reader :as r]
            [cljs.tools.reader.reader-types :as rt]
            [clojure.string :as s]))

(defn- read-chars
  [reader]
  (loop [res []]
    (if-let [ch (rt/read-char reader)]
      (recur (conj res ch))

viebel

Keybase proof

I hereby claim:

• I am viebel on github.
• I am viebel (https://keybase.io/viebel) on keybase.
• I have a public key whose fingerprint is EDBD 1851 C8E1 DBB5 8AA9 AADE AFC4 60B7 CD50 FA17

To claim this, I am signing this object:

viebel

 (->
   service
   .spreadsheets
   (.batchUpdate "1zC8gFo20z0WdldYEQ1KuC0jGFZjHZI14fauFmCQ4H4s"
                 (make-batch-update [(-> (CreateDeveloperMetadataRequest.)
                                         (.setDeveloperMetadata (-> (DeveloperMetadata.)
                                                                    (.setMetadataId (int 1232))
                                                                    (.setMetadataKey "foofoo")
                                                                    (.setMetadataValue "123")
                                                                    (.setLocation (-> (DeveloperMetadataLocation.)

viebel

(str "Hello Advah"
     " "
     "Hello Yair")

(defn h [name]
  (str "Hello" 
       " " 
       name))

[(h "Yair")

viebel

(require '[datascript.core :as d])


(let [schema {:aka {:db/cardinality :db.cardinality/many}}
      conn   (d/create-conn schema)]
  (d/transact! conn [ { :db/id -1
                        :name  "Maksim"
                        :age   45
                        :aka   ["Max Otto von Stierlitz", "Jack Ryan"] } ])
  (d/q '[ :find  ?n ?a

viebel

(ns dijkstra.core)


(defn make-graph [] (atom {}))
(defn add-node [g node]
  (swap! g assoc node {}))

(defn add-edge [g src target]
  (swap! g update src #(assoc % target 1)))