Zde můžete vidět rozdíly mezi vybranou verzí a aktuální verzí dané stránky.
— | howto:misc:czu:smalltalk [2016/03/14 22:26] (aktuální) – vytvořeno - upraveno mimo DokuWiki 127.0.0.1 | ||
---|---|---|---|
Řá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: ' | ||
+ | |||
+ | f1 := Firma new. | ||
+ | f1 jmeno: ' | ||
+ | |||
+ | a1:=Auto new. | ||
+ | a1 znacka: ' | ||
+ | a1 model: ' | ||
+ | |||
+ | n1:= Nakladak new. | ||
+ | n1 znacka: ' | ||
+ | |||
+ | Auta := Set new. | ||
+ | Auta add: a1; add: n1. | ||
+ | |||
+ | Osoby := Set new. | ||
+ | Osoby add: o1. | ||
+ | </ | ||
+ | |||
+ | <code smalltalk> | ||
+ | Auta select: [:s | s rokVyroby > 1998 ] | ||
+ | Auta select: [:s | s vlastnik jmeno = ' | ||
+ | </ | ||
+ | |||
+ | <code smalltalk> | ||
+ | vek | ||
+ | " | ||
+ | |||
+ | ^ Date today year - datumNarozeni year | ||
+ | </ | ||
+ | |||
+ | |||
+ | ------ | ||
+ | |||
+ | <code smalltalk> | ||
+ | Ucty select: [:a | a mena = ' | ||
+ | Ucty select: [:a | a majitel jmeno = ' | ||
+ | Ucty select: [:a | a mena = ' | ||
+ | (Ucty select: [:a | a mena = ' | ||
+ | ((Ucty select: [:a | a mena = ' | ||
+ | (((Ucty select: [:a | a mena = ' | ||
+ | Ucty collect: [:u | u majitel] | ||
+ | Klienti project: #jmeno with: #prijmeni | ||
+ | </ |