Již umíte pracovat s proměnnými a funkcemi, je na čase vydat se za tajemstvím seznamů (anglicky lists, které tvoří důležitou součást Scheme.
Dříve, než si o seznamech povíme více, musíte pochopit rozdíl mezi atomickými hodnotami a seznamy.
Atomické hodnoty jsme viděli již při inicializaci proměnných
v předchozí lekci. Atomická hodnota je jedna jediná hodnota.
Následujícím výrokem přiřadíme proměnné x
(atomickou) hodnotu 8:
(let* ( (x 8) ) x)
(Výraz x je na konci uveden jen proto, aby hodnotu
proměnné x z ilustrativních důvodů vypsal, při
běžném skriptování není nutný. Všimněte si, že let*
pracuje podobně jako funkce – vrací hodnotu posledního výroku.)
Proměnná může také odkazovat na seznam hodnot, ne na hodnotu jedinou.
Přiřadit proměnné x seznam hodnot 1, 3, 5 lze
takto:
(let* ( (x '(1 3 5))) x)
Zkuste oba výroky ve Script-Fu konzoli a sledujte reakci. První výrok vrátí výsledek:
8
Druhý výrok však vrátí následující výsledek:
(1 3 5)
Odpověď 8 značí, že proměnná x obsahuje atomickou
hodnotu 8. Odpověď (1 3 5) však říká, že proměnná
x neobsahuje jednu hodnotu, nýbrž seznam hodnot.
Všimněte si, že v deklaraci, přiřazení seznamu, ani ve vypsaném
výsledku nejsou žádné čárky.
Syntaxe definice seznamu je následující:
'(a b c)
kde a, b a
c jsou literály. Apostrof (') značí,
že v následujících závorkách je seznam literálů, nikoliv
funkce či výraz.
Prázdný seznam lze definovat následujícím způsobem:
'()
nebo jednodušeji:
()
Seznamy mohou obsahovat atomické hodnoty i další seznamy:
(let*
(
(x
'("The GIMP" (1 2 3) ("is" ("great" () ) ) )
)
)
x
)
Všimněte si, že za prvním apostrofem již není, pro vnitřní seznamy, apostrofy používat. Přepiště výrok do jedné řádky, vložte do Script-Fu konzole, vyzkoušejte a prohlédněte si výsledek.
Vrácený výsledek není seznam jednotlivých atomických hodnot, ale
obsahuje literál ("The GIMP"), seznam
(1 2 3) atd.
O seznamech je často užitečné přemýšlet jako o útvarech složených z hlavičky a ocásku (anglicky head a tail). Hlavička je první položka seznamu, zbývající položky tvoří ocásek. Bude to užitečné, až budeme mluvit o spojování seznamů a přístupu k jednotlivým prvkům seznamu.
Jedna z funkcí, se kterými se budete setkávat nejčastěji, je
funkce cons (z anglického
concatenation). Tato funkce vezme
hodnotu a připojí ji před svůj druhý argument,
seznam. V předchozím odstavci jsme navrhli představu seznamu jako
útvaru složeného z hlavičky a ocásku. Funkce cons
přidává seznamu nový prvek na místo jeho hlavičky. Například takto:
(cons 1 '(2 3 4) )
Výsledkem je seznam (1 2 3 4).
Lze takto vytvořit i seznam s jedním prvkem:
(cons 1 () )
Místo kteréhokoliv literálu můžete samozřejmě použít dříve deklarovanou proměnnou.
Pro definici seznamu složeného z literálů a dříve deklarovaných
proměnných můžete použít funkci list:
(list 5 4 3 a b c)
Tak se vytvoří a vrátí seznam obsahující hodnoty proměnných
a, b a c.
Například:
(let* (
(a 1)
(b 2)
(c 3)
)
(list 5 4 3 a b c)
)
Tento kód vytvoří seznam (5 4 3 1 2 3).
K přistupování k hodnotám v seznamu slouží funkce car
a cdr. První vrací první prvek v seznamu (hlavičku),
druhá vrací zbytek seznamu (ocásek).
Funkce car vrací první prvek seznamu (hlavičku).
Seznam musí být nenulový. Například:
(car '("first" 2 "third"))
vrátí:
"first"
Funkce cdr vrací celý seznam kromě jeho prvního prvku,
tedy ocásek seznamu. Pokud seznam obsahuje jediný prvek, vrací
prázdný seznam.
(cdr '("first" 2 "third"))
vrací:
(2 "third")
zatímco následující:
(cdr '("one and only"))
vrací:
()
Výborně, již umíme získat první prvek ze seznamu i zbytek seznamu.
Jak ale přistupovat ke druhému, třetímu nebo jinému prvku seznamu?
K tomuto účelu existuje řada praktických funkcí, např. hlavička
hlavičky ocásku seznamu (caadr), ocásek ocásku seznamu
(cddr) atd.
Konvence pro pojemnovávání takových to funkcí je velmi jednoduchá.
Písmena a představují hlavičky, písmena
d představují ocásky. Například:
(car (cdr (car x) ) )
lze jednodušeji zapsat jako:
(cadar x)
Úplný seznam funkcí pro práci se seznamy ve Script-Fu naleznete v příloze.
Abyste si funkce pro přístup k prvkům seznamu procvičili, zadejte
následující (ovšem, pokud používáte konzoli, na jednom řádku) a
zkoušejte si různé kombinace car a cdr
pro přístup k různým prvkům seznamu:
(let* (
(x '( (1 2 (3 4 5) 6) 7 8 (9 10) )
)
)
; place your car/cdr code here
)
Pokuste se získat číslo tři pouze dvěma voláními funkce. Pokud se vám to podaří, možná se z vás stane Mistr Script-Fu!
|
Poznámka |
|---|---|
|
Ve Scheme uvádí středník (";") komentář. Středník, a vše co za ním následuje, až do konce řádky, interpretr ignoruje. Do komentářů si můžete psát různé vysvětlující poznámky k funkci skriptu. |