qertoip · August 1, 2010 06:04 · Aug 21, 2010 · Aug 1, 2010 · Aug 1, 2010 · Aug 1, 2010
diff --git a/idiomatyczny_import.clj b/idiomatyczny_import.clj
@@ -1,4 +1,13 @@
-; Można w ten sposób zaimportować *.clj lub *.class wymienione z nazwy, 
+; 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+)])
+(use '[lib-name :only (var-names+)])
diff --git a/repl_load_file.clj b/repl_load_file.clj
@@ -0,0 +1,5 @@
+; 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/obiekty_javy.clj b/obiekty_javy.clj
@@ -0,0 +1,5 @@
+; Jak utworzyć obiekt Javy?
+
+(new Thread 
+  (fn [] ())
+)
diff --git a/metody_javy.clj b/metody_javy.clj
@@ -0,0 +1,3 @@
+; Jak wołać metody obiektu?
+
+(.metodaObiektu obiekt)
diff --git a/threadsafe_mutable_state.clj b/threadsafe_mutable_state.clj
@@ -6,6 +6,6 @@
 
 (dosync ; force transaction
   (alter accounts conj
-    (struct 1 139.78)
+    (struct account 1 139.78)
   )
 )
diff --git a/threadsafe_mutable_state.clj b/threadsafe_mutable_state.clj
@@ -0,0 +1,11 @@
+(defstruct account :id :balance)
+
+(def accounts
+  (ref #{})
+)
+
+(dosync ; force transaction
+  (alter accounts conj
+    (struct 1 139.78)
+  )
+)
diff --git a/odpowiednik_klasy.clj b/odpowiednik_klasy.clj
@@ -1,4 +1,8 @@
 ; 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)
+(defstruct person :first-name :last-name)
+
+(struct person "Piotr" "Wlodarek")
+; lub
+(struct-map person :first-name "Piotr", :last-name "Wlodarek")
diff --git a/list_comprehension.clj b/list_comprehension.clj
@@ -0,0 +1,4 @@
+; odpowiednik w ruby:
+; compositions.select{|c| c.name == "Requiem" }.map( &:composer )
+
+(for [c compositions :when (= "Requiem" (:name c))] (:composer c))
diff --git a/idiomatyczny_import.clj b/idiomatyczny_import.clj
@@ -0,0 +1,4 @@
+; Można w ten sposób 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/odpowiednik_klasy.clj b/odpowiednik_klasy.clj
@@ -0,0 +1,4 @@
+; 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)
diff --git a/statyczne_metody_javy.clj b/statyczne_metody_javy.clj
@@ -0,0 +1,3 @@
+; Jak idiomatycznie wołać statyczne metody Javy?
+
+(Character/isWhitespace 32)
diff --git a/string_join.clj b/string_join.clj
@@ -0,0 +1,3 @@
+(use '[clojure.contrib.str-utils :only (str-join)])
+
+(str-join "-" ["ala" "ma" "kota"])
diff --git a/odpowiednik_switch_case.clj b/odpowiednik_switch_case.clj
@@ -1,3 +1,4 @@
+; odpowiednik_switch_case.clj
 ; cond to macro, zwróci nil jeśli żaden z warunków nie był spełniony
 
 (cond 

diff --git a/odpowiednik_switch_case.clj b/odpowiednik_switch_case.clj
@@ -1,4 +1,4 @@
-' cond to makro; zwróci nil jeśli żaden z warunków nie był spełniony
+; cond to macro, zwróci nil jeśli żaden z warunków nie był spełniony
 
 (cond 
   (< x 10) "less"

diff --git a/odpowiednik_switch_case.clj b/odpowiednik_switch_case.clj
@@ -0,0 +1,6 @@
+' cond to makro; zwróci nil jeśli żaden z warunków nie był spełniony
+
+(cond 
+  (< x 10) "less"
+  (> x 10) "more"
+)
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1,3 @@
		; Jak wołać metody obiektu?

		(.metodaObiektu obiekt)
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1,3 @@
		; Jak idiomatycznie wołać statyczne metody Javy?

		(Character/isWhitespace 32)
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1,3 @@
		(use '[clojure.contrib.str-utils :only (str-join)])

		(str-join "-" ["ala" "ma" "kota"])