I hereby claim:
- I am mdallastella on github.
- I am marcodallastella (https://keybase.io/marcodallastella) on keybase.
- I have a public key ASD51I7zAE2uQqIQGx8yUnDdYEcS3RcQw17enXVy-Hgq3wo
To claim this, I am signing this object:
0mph.de | |
0x2a.club | |
0xd.0xa.pw | |
10x.sh | |
2.distsn.org | |
2hu.club | |
3.14r8.club | |
3.distsn.org | |
42pix.pl | |
4toot.org |
I hereby claim:
To claim this, I am signing this object:
I hereby claim:
To claim this, I am signing this object:
(ns talking-clock | |
(:require [clojure.string :as str] | |
[clojure.pprint :refer [cl-format]])) | |
(defn- ->word | |
[n] | |
(cl-format nil "~r" n)) | |
(defn- time-to-map | |
[time] |
I hereby claim:
To claim this, I am signing this object:
(ns tic-tac-toe) | |
;; Calculate the columns indexes | |
(defn columns-indexes | |
[side] | |
(let [size (* side side)] | |
(reduce | |
(fn [m n] | |
(conj m | |
(take side (range n size side)))) |
(ns sessions) | |
(defn create-sessions | |
"Initialize the session atom." | |
[] | |
(atom [])) | |
(defn put-session! | |
"Insert a session into the sessions atom." | |
[sessions session] |
(import '[java.io DataOutputStream ByteArrayOutputStream]) | |
(defn write-int [out v] | |
(.writeInt out v)) | |
(defn write-string [out s] | |
(let [b (.getBytes s) | |
l (count s)] | |
(write-int out l) | |
(.write out b 0 l))) |
(ns die-parser.example | |
(:require [instaparse.core :as i])) | |
(def roller-grammar | |
"die = times <'d'> faces | |
times = number | |
faces = number | |
<number> = #'[0-9]+'") | |
(defn roll |