qertoip · August 1, 2010 06:04 · qertoip · Aug 2, 2010
diff --git a/idiomatyczny_import.clj b/idiomatyczny_import.clj
 ; Definicja przestrzeni nazw z importem funkcji Clojura i klas Javy

 (ns qertoip
  (:use
    [clojure.contrib.io :only [to-byte-array]]
    [clojure.contrib.java-utils :only [as-file]])
  (:import
    [java.io File FileOutputStream]))

 ; W poniższy sposób można zaimportować *.clj lub *.class wymienione z nazwy, 
 ; znajdujące się w CLASSPATH. Nie można zaimportować całego pakietu.

 (use '[lib-name :only (var-names+)])
diff --git a/list_comprehension.clj b/list_comprehension.clj
 ; odpowiednik w ruby:
 ; compositions.select{|c| c.name == "Requiem" }.map( &:composer )

 (for [c compositions :when (= "Requiem" (:name c))] (:composer c))
diff --git a/metody_javy.clj b/metody_javy.clj
 ; Jak wołać metody obiektu?

 (.metodaObiektu obiekt)
diff --git a/obiekty_javy.clj b/obiekty_javy.clj
 ; Jak utworzyć obiekt Javy?

 (new Thread 
  (fn [] ())
 )
diff --git a/odpowiednik_klasy.clj b/odpowiednik_klasy.clj
 ; W clojure nie ma klas znanych z programowania obiektowego.
 ; Najbliższym odpowiednikiem jest struktura z polami, coś jak struct w C.

 (defstruct person :first-name :last-name)

 (struct person "Piotr" "Wlodarek")
 ; lub
 (struct-map person :first-name "Piotr", :last-name "Wlodarek")
diff --git a/odpowiednik_switch_case.clj b/odpowiednik_switch_case.clj
 ; odpowiednik_switch_case.clj
 ; cond to macro, zwróci nil jeśli żaden z warunków nie był spełniony

 (cond 
  (< x 10) "less"
  (> x 10) "more"
 )
diff --git a/repl_load_file.clj b/repl_load_file.clj
 ; Jak wczytać plik clj do REPL-a? Jeśli nie ma przestrzeni nazw, 
 ; wystarczy load lub load-file

 (load-file "./temp.clj")  ; z zadanej ścieżki
 (load "temp")             ; z CLASSPATH
diff --git a/statyczne_metody_javy.clj b/statyczne_metody_javy.clj
 ; Jak idiomatycznie wołać statyczne metody Javy?

 (Character/isWhitespace 32)
diff --git a/string_join.clj b/string_join.clj
 (use '[clojure.contrib.str-utils :only (str-join)])

 (str-join "-" ["ala" "ma" "kota"])
diff --git a/threadsafe_mutable_state.clj b/threadsafe_mutable_state.clj
 (defstruct account :id :balance)

 (def accounts
  (ref #{})
 )

 (dosync ; force transaction
  (alter accounts conj
    (struct account 1 139.78)
  )
 )
	; Definicja przestrzeni nazw z importem funkcji Clojura i klas Javy

	(ns qertoip
	(:use
	[clojure.contrib.io :only [to-byte-array]]
	[clojure.contrib.java-utils :only [as-file]])
	(:import
	[java.io File FileOutputStream]))

	; W poniższy sposób można zaimportować .clj lub .class wymienione z nazwy,
	; znajdujące się w CLASSPATH. Nie można zaimportować całego pakietu.

	(use '[lib-name :only (var-names+)])
	; odpowiednik w ruby:
	; compositions.select{\|c\| c.name == "Requiem" }.map( &:composer )

	(for [c compositions :when (= "Requiem" (:name c))] (:composer c))
	; W clojure nie ma klas znanych z programowania obiektowego.
	; Najbliższym odpowiednikiem jest struktura z polami, coś jak struct w C.

	(defstruct person :first-name :last-name)

	(struct person "Piotr" "Wlodarek")
	; lub
	(struct-map person :first-name "Piotr", :last-name "Wlodarek")
	; odpowiednik_switch_case.clj
	; cond to macro, zwróci nil jeśli żaden z warunków nie był spełniony

	(cond
	(< x 10) "less"
	(> x 10) "more"
	)
	; Jak wczytać plik clj do REPL-a? Jeśli nie ma przestrzeni nazw,
	; wystarczy load lub load-file

	(load-file "./temp.clj") ; z zadanej ścieżki
	(load "temp") ; z CLASSPATH
	; Jak idiomatycznie wołać statyczne metody Javy?

	(Character/isWhitespace 32)
	(use '[clojure.contrib.str-utils :only (str-join)])

	(str-join "-" ["ala" "ma" "kota"])
	(defstruct account :id :balance)

	(def accounts
	(ref #{})
	)

	(dosync ; force transaction
	(alter accounts conj
	(struct account 1 139.78)
	)
	)