nathell

;; A Clojure implementation of http://koziolekweb.pl/2016/05/08/lotto-to-fajna-rzecz/.

(ns lotto)

(defn lotto
  ([] (lotto 49 6 100000))
  ([n k r]
   (let [balls (range 1 (inc n))
         random-balls #(take k (shuffle balls))
         empty-counts (zipmap balls (repeat 0))

nathell

(ns trzeciblank
  (:require [clojure.string :as string]
            [clojure.java.io :as io]
            [clojure.set :refer :all]))

(def piatki (set (line-seq (io/reader "/home/nathell/scrabble/w5.txt"))))

(defn kandydaci [slowo]
  (for [i (range 5) x "abcdefghijklmnoprstuwyząćęłńóśźż"
        :let [kand (str (subs slowo 0 i) x (subs slowo (inc i)))]

nathell

(ns http-client
  (:import [org.mortbay.jetty.client HttpClient ContentExchange]
           [java.io ByteArrayInputStream]))

(defn request
  "Takes a request conforming to the Ring specification and sends it to
the server. Returns a Ring response."
  [req]
  (let [{:keys [scheme server-name server-port uri query-string content-type headers character-encoding request-method body]} req
        client (HttpClient.)

nathell

(ns mmu
  (:gen-class)
  (:use [clojure.contrib duck-streams]))

(defn gc []
  (dotimes [_ 4] (System/gc)))

(defn used-memory []
  (let [runtime (Runtime/getRuntime)]
    (gc)

nathell

(defn read-text []
  (take-while (comp not empty?) (repeatedly read-line)))

(defn char<= [x y z]
  (and (>= 0 (compare x y)) (>= 0 (compare y z))))

(defn update-map [m letter]
  (let [letter (Character/toUpperCase letter)]
    (if (char<= \A letter \Z)
      (assoc m letter (inc (get m letter 0)))

nathell

#!/usr/bin/expect -f
set cp [regsub -all { } [glob *] {:}]
spawn java -cp $cp:/home/nathell/programs/clojure/clojure-1.1.0.jar -Xmx4096M -server -Xms4096M clojure.main
expect "user"
send "(require 'swank.swank)\r"
expect "user"
send "(defn swank \[\] (swank.swank/start-server \"/dev/null\" :port 4005))\r"
send "(swank)\r"
interact