Paste 79551
anonymous on April 24, 2014
1
2
3
4
5
(deftype StringPushbackReader [s buffer ^:mutable idx]
  PushbackReader
  (read-char [reader]
    (if (zero? (.-length buffer))
      (do
more...

Paste 79550
anonymous on April 24, 2014
1
2
3
4
5
#								#
# Automatically generated file; DO NOT EDIT.			# Automatically generated file; DO NOT EDIT.
# Linux/x86 3.12 Kernel Configuration			      |	# Linux/x86 3.13 Kernel Configuration
#								#
# CONFIG_64BIT is not set					# CONFIG_64BIT is not set
more...

Paste 79549
anonymous on April 24, 2014
1
2
3
4
5
;; colin_gxy's solution to Palindrome Detector
;; https://4clojure.com/problem/27

(fn [cols]
  (let [len (count cols)]
more...

Paste 79548
anonymous on April 24, 2014
1
2
3
4
5
[nick@nick-desktop overviewer]$ for i in {1..10000}; do ruby /dev/urandom 2>/dev/null && echo $i; done
7
130
171
213
more...

Paste 79547
anonymous on April 24, 2014
1
(╯°□°)╯︵ ┻━┻

Paste 79546
anonymous on April 24, 2014
1
2
3
4
5
;; blischalk's solution to Rotate Sequence
;; https://4clojure.com/problem/44

(fn rotate
  [index coll] (cond 
more...

Paste 79545
anonymous on April 24, 2014
1
2
3
4
5
# Solution to 'Something Doesn't Add Up' on rubeque.com
# by tdl
# http://www.rubeque.com/problems/something-doesn-quo-t-add-up

def math_is_easy?
more...

Paste 79544
anonymous on April 24, 2014
1
2
3
4
5
(defn pooled-map [func things & [{:keys [threads]
                                  :or {threads (-> (Runtime/getRuntime)
                                                   (.availableProcessors)
                                                   (+ 2)) }}]]
  (let [pool (java.util.concurrent.Executors/newFixedThreadPool threads)
more...

Paste 79543
anonymous on April 24, 2014
1
2
3
4
5
;; This function is validating the assets by calling an external api. however it is the same speed as if it was executing synchronously.

(defn validate-something
  [f assets]
  (let [validated (filter< f (async/to-chan assets))]
more...

Paste 79542
anonymous on April 24, 2014
1
2
3
4
5
;; blischalk's solution to Greatest Common Divisor
;; https://4clojure.com/problem/66

(fn gcd [a b]
  (let [result (rem (max a b) (min a b))]
more...

Paste 79541
anonymous on April 24, 2014
1
2
3
4
5
*** config-3.12-8.towo-siduction-686-pae	2014-01-16 04:31:01.000000000 -0500
--- config-3.13-0.towo-siduction-686-pae	2014-01-20 04:25:01.000000000 -0500
***************
*** 1,6 ****
  #
more...

Paste 79540
anonymous on April 24, 2014
1
2
3
4
5
# Solution to 'FizzBuzz' on rubeque.com
# http://rubeque.com/problems/fizzbuzz

def fizzbuzz(x)
  if((x % 3 == 0) && (x % 5 == 0)) then "FizzBuzz"
more...

Paste 79539
anonymous on April 24, 2014
1
2
3
4
5
# Solution to 'The Truth' on rubeque.com
# http://rubeque.com/problems/the-truth

assert_equal true, def assert_equal first, second
  first == second
more...

Paste 79538
anonymous on April 24, 2014
1
2
3
4
5
        <?php 
        		echo '<h1>json_api</h1>';
        		
        		$properties = $reflector->getProperties();
more...

Paste 79537
anonymous on April 24, 2014
1
2
3
4
5
#								#
# Automatically generated file; DO NOT EDIT.			# Automatically generated file; DO NOT EDIT.
# Linux/x86 3.12 Kernel Configuration			      |	# Linux/x86 3.13 Kernel Configuration
#								#
# CONFIG_64BIT is not set					# CONFIG_64BIT is not set
more...

Paste 79535
anonymous on April 24, 2014
1
2
3
4
5
(require '[clojure.java.io :as io])

(defn load-benchmark-results [path]
  (with-open [rdr (io/reader path)]
    (loop [engine nil
more...

Paste 79534
anonymous on April 24, 2014
1
2
3
4
5
*** config-3.12-8.towo-siduction-686-pae	2014-01-16 04:31:01.000000000 -0500
--- config-3.13-0.towo-siduction-686-pae	2014-01-20 04:25:01.000000000 -0500
***************
*** 1,6 ****
  #
more...

Paste 79533
anonymous on April 24, 2014
1
2
3
4
5
;; blischalk's solution to Greatest Common Divisor
;; https://4clojure.com/problem/66

(fn gcd [a b]
  (let [result (rem (max a b) (min a b))]
more...

Paste 79532
anonymous on April 24, 2014
1
2
3
4
5
(require 'pallet.configure)
(require 'pallet.core)

(def my-data-center
  (pallet.configure/compute-service :virtualbox))
more...

Paste 79531
anonymous on April 24, 2014
1
2
3
4
5
(require '[clojure.tools.analyzer.jvm :as jvm]
         '[clojure.tools.analyzer.passes :as passes])


(defmulti assoc-method-object :op)
more...

Did you know? CLOSE

  • There are keyboard shortcuts!
    • When Creating A Paste
      • ALT+P Toggle Private
      • CTRL+Enter Create Paste
      • ALT+W Toggle word wrap
    • When Viewing A Paste
      • ALT+G Go to a line
      • ALT+CTRL+E Edit the paste
      • ALT+R Show the raw code
  • There are URL options!
    • When Creating A Paste
      • ?lang=Javascript to default to javascript
    • When Viewing A Paste
      • #L-N Jump to line number N
?