Nalezněte lexikograficky předchozí permutaci:(Pokud není tak false)
Kód: Vybrat vše
prev([1,2,6,3,4,5,7],V).
V = [1,2,5,7,6,4,3]
Dostaneme list atomů a list binárních operátorů. Máme postupně vydat všechny termy obsahující všechny atomy (pořadí zleva doprava), operátory se mohou opakovat.
Kód: Vybrat vše
gen([a,b,c],[xor],V).
V = a xor (b xor c).
V =(a xor b) xor c.
gen([a,b,c],[xor,and],V).
V = a xor (b xor c).
V = a xor (b and c).
V = a and (b xor c).
V = a and (b and c)...
Ohodnotit vrcholy obecného n-arní stromu v pořadí v jakém jsou vrcholy uzavírány, takže post-fixově. Měla se napsat datová struktura pro strom, typová hlavička fce a pak tu funkci implementovat:
Kód: Vybrat vše
data Strom a = Nil | Strom a [Strom a]
label::Strom a -> Strom (a,Int)
Implementovat horní celou část čísla = kladná zaokrouhluje nahoru, záporná dolů. Mělo by to běžet v čase logn a samozřejmě bez použítí ceil/floor a podobných fcí.
Velký příklad:
Na vstupu jsou kostičky domina(dvojice symbolů) a máme je uspořádat do co nejmenšícho počtu řetězců. V řetězci na sebe musí navazovat:
Kód: Vybrat vše
Vstup: [(8,8),(1,2),(2,3),(3,4), (7,8)]
Reseni: [[(1,2),(2,3),(3,4)],[(7,8),(8,8)]]