codification

(ns challange.test.core
  (:use [challange.core] :reload)
  (:use [midje.sweet]))

(fact 
 (solve "AA" ["A"]) => ""
 (solve "ABA" ["A" "B"]) => "" 
 (solve "AB" ["A" "X"]) => "B")

(fact

codification

(ns bogus.core
  (import java.util.Date)
  (import java.net.Socket)
  (import java.io.PrintWriter))

(def metric "bogus.metric")
(defonce power (atom 0))
(defn pow! [] 
     (swap! power inc))

codification

import sys
import signal
from threading import Thread
from BaseHTTPServer import HTTPServer, BaseHTTPRequestHandler

class PUTHandler(BaseHTTPRequestHandler):
    def do_PUT(self):
        print "----- SOMETHING WAS PUT!! ------"
        print self.headers
        length = int(self.headers['Content-Length'])

codification

(ns clj-client.core
  (import [java.net Socket]
          [java.io PrintWriter]))

(defn now []
  (int (/ (System/currentTimeMillis) 1000)))

(defn write-metric [name value timestamp]
  (with-open [socket (Socket. "localhost" 2003)
              os (.getOutputStream socket)]

codification

import time
import socket
def collect_metric(name, value, timestamp):
    sock = socket.socket()
    sock.connect( ("localhost", 2003) )
    sock.send("%s %d %d\n" % (name, value, timestamp))
    sock.close()

def now():
    return int(time.time())

codification

# Clojure syntax highlighting for GNU source-highlight
# rocks with SHJS

comment start ";"

include "number.lang"

vardef SPECIALCHAR = '\\.'

environment string delim "\"" "\"" begin

codification

(ns proc
  (:import [java.lang ProcessBuilder])
  (:use [clojure.java.io :only [reader writer]]))

(defn spawn [& args]
  (let [process (-> (ProcessBuilder. args)
                  (.start))]
    {:out (-> process
            (.getInputStream)
            (reader))

codification

(ns mail
  (:use [pallet.utils :only [make-user]]
        [pallet.crate.automated-admin-user :only [automated-admin-user]]
        [pallet.phase :only [phase-fn]]
        [pallet.core :only [server-spec group-spec converge]]
        [pallet.compute :only [compute-service-from-config-file]]))

(def my-admin-user (make-user "superuser"
                              :public-key-path "/path/to/public"
                              :private-key-path "/path/to/private"))

codification

(ns tokenring.core
  (:require [lamina.core :as lamina])
  (:require [aleph.tcp :as aleph])
  (:require [gloss.core :as gloss]))

(defn connect-and-send [message]
  (println (str "connecting and sending: " message))
  (let [ch (lamina/wait-for-result
            (aleph/tcp-client {:host "192.168.48.35"
                         ;;:host "localhost"

codification

Under FP-mötet idag (2013-04-09) kom det upp en del frågor kring ställen att gå till för att påbörja sin resa med Clojure. Jag vet inte om de som var på FP-meetup läser det här, men vet ni vilka ni eller de är, dela gärna med er.

Vi nämnde dessa:

Rich Hickey

http://www.infoq.com/presentations/Simple-Made-Easy

http://www.infoq.com/presentations/Are-We-There-Yet-Rich-Hickey