bakpakin

(defn http-get
  "Get some HTTP using curl"
  [url]
  (with [f (file/popen (string "curl -s " url))]
    (:read f :all)))
    
(http-get "https://www.google.com")

bakpakin

static JanetFunction *global_cb = NULL;

Janet register_callback(int32_t argc, Janet *argv) {
  janet_fixarity(argc, 1);
  JanetFunction *cb = janet_getfunciton(argv, 0);
  global_cb = cb;
  // Make sure the callback is not garbage collected while waiting
  janet_gcroot(argv[0]);
  return janet_wrap_nil();
}

thheller

(ns shadow.grove.react.benchmark
  (:require
    ["benchmark" :as b]
    ["react" :as react :rename {createElement rce}]
    ["react-dom/server" :as rdom]
    [hx.react :as hx]
    [shadow.grove.react :as shadow]
    [reagent.core :as reagent]
    [rum.core :as rum]
    [fulcro.client.dom :as fulcro-dom]))

s5bug

import eu.timepit.refined._
import eu.timepit.refined.api.Refined
import eu.timepit.refined.numeric._
import fs2._

def defaultMap[T](implicit numeric: Numeric[T]): Map[T Refined Positive, String] =
  Map(
    refineV[Positive](numeric.fromInt(3)).right.get -> "fizz",
    refineV[Positive](numeric.fromInt(5)).right.get -> "buzz"
  )

xificurC

Leiningen 2.8.1 on Java 1.8.0_181 OpenJDK 64-Bit Server VM

{:dependencies
 ([org.clojure/clojure "1.9.0"] [criterium/criterium "0.4.4"]),
 :jvm-opts nil,
 :eval-in nil}

Benchmark: get value in nested map

Mean(us)  vs best   Code

pepasflo

secrets/

burn2delete

;; Basic Specs ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(spec/def ::fn      fn?)

(spec/def ::any     any?)

(spec/def ::map     map?)

(spec/def ::nil     nil?)

(spec/def ::set     set?)

elithrade

Toggle safe mode: gs
Create new file: N
Delete file: d
Rename file: r
New directory: K
Open file: e
Move file: m
Open VimFilerExplorer: e
Open current directory in a new buffer: dl
Open current directory in a new split: ds

yogthos

#!/usr/bin/env lumo
(ns spacedl.spacedl
  (:require [cljs.nodejs :as node]
            [clojure.pprint :refer [pprint]]
            [clojure.string :as string :refer [join split starts-with?]]
            [cljs.core :refer [*command-line-args*]]))

(node/enable-util-print!)
(.on js/process "uncaughtException" #(js/console.error %))

yogthos

from http://www.linuxjournal.com/article/10708

An in-depth look at the new language with Rich Hickey, Creator of Clojure

DE: What did you do before you started the Clojure project?

RH: I'm a consultant, so I work on various things. I think the big thing I've done recently is I worked on the national exit poll.

DE: What other languages did you use before inventing your own?