Počítačové zadanie: Funkcionálne a logické programovanie - Lexical
Skryť detaily | Obľúbený- Kvalita:72,3 %
- Typ:Počítačové zadanie
- Univerzita:Technická univerzita v Košiciach
- Fakulta:Fakulta elektrotechniky a informatiky
- Kategória:Technika
- Podkategória:Programovanie
- Predmet:Funkcionálne a logické programovanie
- Ročník:2. ročník
- Rozsah A4:1 strán
- Zobrazené:1 369 x
- Stiahnuté:1 x
- Veľkosť:0,1 MB
- Formát a prípona:Screen Snapshot (.hs)
- Jazyk:slovenský
- ID projektu:13500
- Posledna úprava:22.01.2021
module Lexical where
data LexSym = AddL | SubL | MulL | DivL | LparL | RparL | ValL Int
type LexSyms = [LexSym]
lexical :: String -> LexSyms
lexical cs = lexA cs []
lexA [] ss = ss
lexA (z:zs) ss | isDigit z = putVal (z:zs) ss
| z == '-' = lexA zs (ss ++ [SubL])
| z == '+' = lexA zs (ss ++ [AddL])
| z == '*' = lexA zs (ss ++ [MulL])
| z == '/' = lexA zs (ss ++ [DivL])
| z == '[' = lexA zs (ss ++ [LparL])
| z == ']' = lexA zs (ss ++ [RparL])
| z == ' ' = lexA zs ss
putVal zs ss = lexA rs (ss ++ [ValL (aToI fs)])
data LexSym = AddL | SubL | MulL | DivL | LparL | RparL | ValL Int
type LexSyms = [LexSym]
lexical :: String -> LexSyms
lexical cs = lexA cs []
lexA [] ss = ss
lexA (z:zs) ss | isDigit z = putVal (z:zs) ss
| z == '-' = lexA zs (ss ++ [SubL])
| z == '+' = lexA zs (ss ++ [AddL])
| z == '*' = lexA zs (ss ++ [MulL])
| z == '/' = lexA zs (ss ++ [DivL])
| z == '[' = lexA zs (ss ++ [LparL])
| z == ']' = lexA zs (ss ++ [RparL])
| z == ' ' = lexA zs ss
putVal zs ss = lexA rs (ss ++ [ValL (aToI fs)])