It's hard to know which is more dystopian: the idea that your every move is being studied by occasionally malign figures of an anonymous goverment authority, or that everything you've done in the public sphere for years now been secretly recorded for no particular reason, by people who would rather be doing almost anything else, in an apotheosis of archival bureaucracy that you yourself pay for through tax.
| (ns conversations.datomic | |
| (require [datomic.api :as d])) | |
| ;; Hi Datomic! I have been hearing good things about you. I would | |
| ;; like to talk to you and get to know you is that alright? | |
| ;; Sure - I would be happy to have a conversation with you. | |
| (def uri "datomic:mem://first-conversation") | |
| (d/create-database uri) |
| (ns coollang.parser | |
| (:require [instaparse.core :as insta])) | |
| ;;; Steps to building a language | |
| ;;;; Step 1 parse an integer | |
| (def parser | |
| (insta/parser | |
| "number = #'[0-9]+'")) |
| ### Keybase proof | |
| I hereby claim: | |
| * I am gigasquid on github. | |
| * I am carinmeier (https://keybase.io/carinmeier) on keybase. | |
| * I have a public key whose fingerprint is D721 DD0A CB75 F910 8285 B3C5 1B77 54F9 A790 9812 | |
| To claim this, I am signing this object: |
| (defn fizzbuzz [n] | |
| (let [all-nums (range 0 n) | |
| folder (fn [fb-str p-num fb-coll] | |
| (mapcat (fn [x] (cons fb-str (rest x))) | |
| (partition-all p-num fb-coll))) | |
| fizz (folder "fizz" 3 all-nums) | |
| buzz (folder "buzz" 5 fizz) | |
| fizzbuzz (folder "fizzbuzz" 15 buzz)] | |
| fizzbuzz)) |
| I have heard the monads singing, each to each. | |
| I do not think that they will sing to me. | |
| I have seen them riding onwards on the lambdas | |
| Lifting the functions of data blown back. | |
| When the functors blow the categories white and black. |
| (The following is a result of a chat that Chris Moore and I had | |
| at the last Gaslight Coffee day) | |
| Here in our lovely city of Cincinnati we have many cool things happening in the tech scene. | |
| We have | |
| - lively user groups | |
| - special events - like NodeCopter coming up http://cinycopter.com | |
| - Hardware hacking projects like http://opengarages.org/ at Hive13 | |
| - Ignite | |
| - Maker Faire http://cincinnatimakerfaire.com/ |
| (ns brackets.core-test | |
| (:use clojure.test | |
| brackets.core | |
| instaparse.core)) | |
| (def my-parser | |
| (parser | |
| "S = func-apply | vector | integer | |
| integer = #'[0-9]+' | |
| <space> = <' '> |
| module Main where | |
| import Test.HUnit | |
| -- nasa :: Int -> [Int] -- | [] | |
| nasa n = reverse [0..n] | |
| -- | n <= 0 = [0] | |
| -- | otherwise = n : (nasa $ n - 1) | |
| -- test1 :: Test |
| -- Example.hs -- Examples from HUnit user's guide | |
| -- | |
| -- For more examples, check out the tests directory. It contains unit tests | |
| -- for HUnit. | |
| module Main where | |
| import Test.HUnit | |
| import Test.QuickCheck |