no way to compare when less than two revisions

Rozdíly

Zde můžete vidět rozdíly mezi vybranou verzí a aktuální verzí dané stránky.

@@ Řádek 1: / Řádek 1: @@
+====== Smalltalk / Daskalos ======
+<code smalltalk>
+"Note that variables begining with uppercase letter will be moved into the workspace pool."
+o1 := Osoba new.
+o1 jmeno: 'Karel'; prijmeni: 'Vcelka'; datumNarozeni: '3 3 2010' asDate.
+f1 := Firma new.
+f1 jmeno: 'NecoStav'; ico: 4564546.
+a1:=Auto new.
+a1 znacka: 'BMW'.
+a1 model: 'M3'; rokVyroby: 2000; vlastnik: o1.
+n1:= Nakladak new.
+n1 znacka: 'Tatra'; rokVyroby: 1995; vlastnik: f1.
+Auta := Set new.
+Auta add: a1; add: n1.
+Osoby := Set new.
+Osoby add: o1.
+</code>
+<code smalltalk>
+Auta select: [:s | s rokVyroby > 1998 ]
+Auta select: [:s | s vlastnik jmeno = 'Karel']
+</code>
+<code smalltalk>
+vek
+	"ziskej vek"
+	^ Date today year - datumNarozeni year
+</code>
+------
+<code smalltalk>
+Ucty select: [:a | a mena = 'EUR']
+Ucty select: [:a | a majitel jmeno = 'Pavel']
+Ucty select: [:a | a mena = 'EUR' & a majitel jmeno = 'Karel']
+(Ucty select: [:a | a mena = 'EUR']) select: [:b | b majitel jmeno = 'Karel']
+((Ucty select: [:a | a mena = 'EUR']) select: [:b | b majitel jmeno = 'Karel']) collect: [:c | c majitel bydliste]
+(((Ucty select: [:a | a mena = 'EUR']) select: [:b | b majitel jmeno = 'Karel']) collect: [:c | c majitel bydliste]) project: #mesto
+Ucty collect: [:u | u majitel]
+Klienti project: #jmeno with: #prijmeni
+</code>