FLP
Z Varhoo
(Rozdíly mezi verzemi)
(→Příklady) |
|||
| Řádka 23: | Řádka 23: | ||
my_elem it ll = (filter (==it) ll ) /= [] |
my_elem it ll = (filter (==it) ll ) /= [] |
||
| + | |||
| + | Jsou potřeba řešit 3 případy, které jsou dány 3 základními prvky lambda kalkulu:''' proměnná''', '''aplikace''', '''abstrakce'''. |
||
| + | Myšlenkou je, že si udržujeme počet všech vázaných proměnných. Pokud nalezneme proměnou, která není ve vázaných, tak je volná a vrátíme ji na výstup (díky rekurzi nám probublají až jako výsledek aniž bychom je potřebovali přímo ukládat. |
||
| + | Vázané proměnné jsou definovány pouze v abstrakci a tedy všechny které jsou pak "nalevo" a stejného jména, tak jsou vázané. |
||
get_free lam = eval lam [] |
get_free lam = eval lam [] |
||
| Řádka 29: | Řádka 33: | ||
eval (Abs b c) ll = (eval b ll) ++ (eval c ll) |
eval (Abs b c) ll = (eval b ll) ++ (eval c ll) |
||
eval (App a b) ll = eval b (a:ll) |
eval (App a b) ll = eval b (a:ll) |
||
| − | |||
== Prolog == |
== Prolog == |
||
Verze z 13. 5. 2012, 13:40
Haskell
Stránka o programování v jazyce haskell.
Základní funkce
- init - vrátí sezname kromě posledního prvku
- last - vrátí seznam kromě prvního prvku
- head - vrátí první prvek ze seznamu
- last - vrátí poslední prvek seznamu
Znovunačtení souboru
>> :r
Příklady
Struktura pro lambda kalkul
data Lam = Var String | Abs ( Lam ) ( Lam ) | App ( String ) ( Lam ) deriving (Show, Eq)
Nalezení všech volných proměnných, pokud nemůžeme použít elem, tak si jej nadefinujeme.
my_elem it ll = (filter (==it) ll ) /= []
Jsou potřeba řešit 3 případy, které jsou dány 3 základními prvky lambda kalkulu: proměnná, aplikace, abstrakce. Myšlenkou je, že si udržujeme počet všech vázaných proměnných. Pokud nalezneme proměnou, která není ve vázaných, tak je volná a vrátíme ji na výstup (díky rekurzi nám probublají až jako výsledek aniž bychom je potřebovali přímo ukládat. Vázané proměnné jsou definovány pouze v abstrakci a tedy všechny které jsou pak "nalevo" a stejného jména, tak jsou vázané.
get_free lam = eval lam []
where
eval (Var a) ll = if my_elem a ll then [] else [a]
eval (Abs b c) ll = (eval b ll) ++ (eval c ll)
eval (App a b) ll = eval b (a:ll)
Prolog
Stránka o programování v jazyce prolog.
Načtení souboru pro wsi-prolog
>> compile('filename.pl')
- nonvar a var testuje zda se jedná o proměnou nebo hodnotu. Funkce var vrací true pokud se jedná o proměnou např. X, _ , kdežto nonvar vrací true v případě že se jedná o hodnotu např. 'jana', 1.
var(1). -> false.
var('jana'). -> false.
var(_). - > true.
var(X). - > true.
nonvar(1). -> true.
nonvar('jana'). -> true.
nonvar(_). - > false.
nonvar(X). - > false.