Skip to content

Instantly share code, notes, and snippets.

luxbock luxbock

Block or report user

Report or block luxbock

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
View rdp.clj
(ns rdp-214.core
(:require [clojure.java.io :as io]
[clojure.string :as str]
[clojure.core.typed :as t
:refer [ann U Seq Str Vec Sequential]]))
;;;; Boilerplate ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(t/tc-ignore
View expand.clj
;; Expanding the following expression as far as it can go:
(filter even? (range 10))
;; equals
(lazy-seq
(when-let [s (seq (range 10))]
(if (chunked-seq? s)
(let [c (chunk-first s), size (count c), b (chunk-buffer size)]
View default.clj
(extend-protocol mp/PExponent
Number
(element-pow [m exponent]
(Math/pow (.doubleValue m) (double exponent)))
Object
(element-pow [m exponent]
(let [x (double exponent)]
(mp/element-map m #(Math/pow (.doubleValue ^Number %) x)))))
View a.txt
Olli@Olli-MBRr ~/clojure/letusgogo
$ lein trampoline cljsbuild repl-rhino
WARNING: no :cljsbuild entry found in project definition.
--------------------------------------------------------------------------------
WARNING: your :cljsbuild configuration is in a deprecated format. It has been
automatically converted it to the new format, which will be printed below.
It is recommended that you update your :cljsbuild configuration ASAP.
--------------------------------------------------------------------------------
:cljsbuild
{:builds []}
View project.clj
(defproject letusgogo "0.1.0-SNAPSHOT"
:description "Project for testing and fetching new libraries"
:url "http://example.com/FIXME"
:license {:name "Eclipse Public License"
:url "http://www.eclipse.org/legal/epl-v10.html"}
:dependencies [[org.clojure/clojure "1.5.1"]
[com.cemerick/pomegranate "0.0.13"]
[lein-kibit "0.0.8"]
[clj-http "0.7.2"]
[tailrecursion/boot.core "1.2.3"]
View *cider*.txt
user> (require '[cljs.repl :as repl])
FileNotFoundException Could not locate cljs/repl__init.class or cljs/repl.clj on classpath: clojure.lang.RT.load (RT.java:443)
View problem-3.clj
(ns project-euler.problem-3)
;; The prime factors of 13195 are 5, 7, 13 and 29.
;; What is the largest prime factor of the number 600851475143 ?
(def n 600851475143)
(defn factors [n]
(let [half (long (/ n 2))]
(filter #(= (rem half %) 0) (range 1 (inc half)))))
View #clojure@b3bai.com
06:18 *** luxbock JOIN
06:18 *** TOPIC Clojure, the language http://clojure.org |
Currently at 1.5.1; top analysts expect this to be
followed by newer versions with still higher
numbers:
https://github.com/clojure/clojure/blob/master/changes.md
| discussion:
http://groups.google.com/group/clojure | Trying to
convince others to use Haskell is permitted between
0200 and 0500 UTC. (technomancy on Tue Jan 14
@luxbock
luxbock / core.cljs
Created Dec 10, 2014
freactive-datascript
View core.cljs
(ns freactive-datascript.core
(:require [datascript :as d]
[datascript.core :as dc]
[clojure.data :as data]
[freactive.core :as f :refer [IReactive
*invalidate-rx*
*trace-capture*]]))
;;; Playground ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
View playground.clj
(transform
[MAP-VALS
(view frequencies)
(collect-one (view #(apply max (vals %))))]
(fn [mx fs] (transform MAP-VALS #(/ % mx) fs))
{:a [1 1 3 4] :b [1 1 2 2 2 3]})
;; => {:a {1 1, 3 1/2, 4 1/2}, :b {1 2/3, 2 1, 3 1/3}}
You can’t perform that action at this time.