luxbock

  ;; 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)]

luxbock

(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)))))

luxbock

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 []}

luxbock

(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"]

luxbock

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)

luxbock

(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)))))

luxbock

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

(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 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

luxbock

(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}}

luxbock

(ns test.core
  (:require [clojure.spec :as s]
            [clojure.spec.test :as stest]
            [clojure.test.check.generators :as gen]))

(s/def ::file-count nat-int?)
(s/def ::operations (s/map-of keyword? pos-int?))
(s/def ::time-total (s/and double? (complement neg?)))

(s/def ::summary-res