cwbe coordinatez:
101
63540
2076399
3671716
3914230

ABSOLUT
KYBERIA
permissions
you: r,
system: public
net: yes

neurons

stats|by_visit|by_K
source
tiamat
K|my_K|given_K
last
commanders
polls

total descendants::
total children::1
show[ 2 | 3] flat


Napíšte (v Haskelli) funkciu mkTree typu

data Tree a = Branch a (Tree a) (Tree a) | Nil
mkTree :: Int -> a -> Tree a

Táto funkcia má vrátiť úplný binárny strom so zadanou hĺbkou (prvý parameter, typu Int), v každom vrchole ktorého sa má nachádzať (tá istá) zadaná hodnota (druhý parameter, typu a) v čase lepšom než O(N), kde N je počet uzlov stromu.




000001010006354002076399036717160391423003922563
ziman
 ziman      26.04.2008 - 11:12:01 , level: 1, UP   NEW
mkTree 0 _ = Nil
mkTree n x = let subtree = mkTree (n-1) x in Branch x subtree subtree



00000101000635400207639903671716039142300392256303922953
C
 C      26.04.2008 - 13:37:40 , level: 2, UP   NEW
haha, aka finta:)