Skip to content

Instantly share code, notes, and snippets.

Yehonathan Sharvit viebel

Block or report user

Report or block viebel

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
@viebel
viebel / rules.clj
Created Nov 14, 2019
text rules matching
View rules.clj
(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]
View split_expressions.cljs
(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))
View gist:abd975e38e86f430a6f1dd5a7ac03d87
(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))
View keybase.md

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:

View CreateDeveloperMetadataRequest.clj
(->
service
.spreadsheets
(.batchUpdate "1zC8gFo20z0WdldYEQ1KuC0jGFZjHZI14fauFmCQ4H4s"
(make-batch-update [(-> (CreateDeveloperMetadataRequest.)
(.setDeveloperMetadata (-> (DeveloperMetadata.)
(.setMetadataId (int 1232))
(.setMetadataKey "foofoo")
(.setMetadataValue "123")
(.setLocation (-> (DeveloperMetadataLocation.)
View lesson-1-hello-multiple.clj
(str "Hello Advah"
" "
"Hello Yair")
(defn h [name]
(str "Hello"
" "
name))
[(h "Yair")
View datascript-demo.clj
(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
View clojure-stories.clj
;loaded from gist: https://gist.github.com/viebel/1662c34536a099e591380ba2e43172c4
;; for the video sample
;; hello worlds
(defn hello [name]
(str "Hello, " name "!"))
(defn multiple-hellos [names]
(let [greetings (map hello names)]
View create-graph.clj
(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)))
View dijkstra.clj
(ns dijkstra.core)
(defn unvisited-neighbors
"Returns unvisited node's neighbors"
[graph node unvisited] (select-keys (get graph node) unvisited))
(defn update-costs
"Returns costs updated with any shorter paths found to curr's unvisited
neighbors by using curr's shortest path"
[g costs curr unvisited]
You can’t perform that action at this time.