Instruções
Implementa operações básicas com listas.
Em linguagens funcionais, operações sobre listas como length, map e reduce são muito comuns.
Implementa uma série de operações básicas com listas, sem usar as funções já existentes.
O número exato e os nomes das operações a implementar variam de track para track, para evitar conflitos com nomes já existentes, mas as operações gerais que vais implementar incluem:
-
append (dadas duas listas, acrescenta todos os itens da segunda lista ao fim da primeira lista);
-
concatenate (dada uma série de listas, combina todos os itens de todas as listas numa única lista achatada);
-
filter (dado um predicado e uma lista, devolve a lista de todos os itens para os quais predicate(item) é True);
-
length (dada uma lista, devolve o número total de itens que ela contém);
-
map (dada uma função e uma lista, devolve a lista dos resultados de aplicar function(item) a todos os itens);
-
foldl (dada uma função, uma lista e um acumulador inicial, aplica fold (reduce) a cada item no acumulador, a partir da esquerda);
-
foldr (dada uma função, uma lista e um acumulador inicial, aplica fold (reduce) a cada item no acumulador, a partir da direita);
-
reverse (dada uma lista, devolve uma lista com todos os itens originais, mas pela ordem inversa).
Repara que a ordem pela qual os argumentos são passados às funções de fold (foldl, foldr) é importante.
O comando apply do Tcl
Os casos de teste podem parecer confusos.
Espera-se que implementes isto:
set myList {alpha beta gamma delta}
listOps::filter $myList {{word} {expr {[string length $word] == 4}}
Porque é que esse último argumento tem tantas chavetas?
Lembra-te de que o comando proc é definido assim:
proc procName argList body
O Tcl tem um comando apply:
apply func ?arg1 arg2 ...?
este "func" é uma lista de dois elementos {argList body} que é, essencialmente, um proc anónimo (ou "lambda").
O comando apply invoca esse proc anónimo, passando-lhe os argumentos de que precisa.
Por exemplo, estes são equivalentes:
# using proc
proc myReverse {str} {return [string reverse $str]}
puts [myReverse "Hello, World!"]
# using apply
puts [apply {{str} {string reverse $str}} "Hello, World!"]
# or, store the func in a variable
set func {{str} {string reverse $str}}
puts [apply $func "Hello, World!"]
Usar o apply torna mais simples passar blocos de código de um lado para o outro.
Ref.: apply, proc.
