|
|
|
@ -1928,7 +1928,51 @@ |
|
|
|
; false |
|
|
|
; false |
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
|
|
(defn palabra-reservada? [arg] |
|
|
|
(defn palabra-reservada? [arg] |
|
|
|
true |
|
|
|
(let [keywords (hash-set |
|
|
|
|
|
|
|
'EOF, |
|
|
|
|
|
|
|
'String, |
|
|
|
|
|
|
|
'Write, |
|
|
|
|
|
|
|
'abs, |
|
|
|
|
|
|
|
'as, |
|
|
|
|
|
|
|
'as_str, |
|
|
|
|
|
|
|
'atan, |
|
|
|
|
|
|
|
'bool, |
|
|
|
|
|
|
|
'char, |
|
|
|
|
|
|
|
'chars, |
|
|
|
|
|
|
|
'const, |
|
|
|
|
|
|
|
'else, |
|
|
|
|
|
|
|
'exit, |
|
|
|
|
|
|
|
'expect, |
|
|
|
|
|
|
|
'f64, |
|
|
|
|
|
|
|
'flush, |
|
|
|
|
|
|
|
'fn, |
|
|
|
|
|
|
|
'format!, |
|
|
|
|
|
|
|
'from, |
|
|
|
|
|
|
|
'i64, |
|
|
|
|
|
|
|
'if, |
|
|
|
|
|
|
|
'io, |
|
|
|
|
|
|
|
'let, |
|
|
|
|
|
|
|
'mut, |
|
|
|
|
|
|
|
'new, |
|
|
|
|
|
|
|
'nth, |
|
|
|
|
|
|
|
'parse, |
|
|
|
|
|
|
|
'print!, |
|
|
|
|
|
|
|
'println!, |
|
|
|
|
|
|
|
'process, |
|
|
|
|
|
|
|
'read_line, |
|
|
|
|
|
|
|
'return, |
|
|
|
|
|
|
|
'sin, |
|
|
|
|
|
|
|
'sqrt, |
|
|
|
|
|
|
|
'std, |
|
|
|
|
|
|
|
'stdin, |
|
|
|
|
|
|
|
'stdout, |
|
|
|
|
|
|
|
'to_string, |
|
|
|
|
|
|
|
'trim, |
|
|
|
|
|
|
|
'unwrap, |
|
|
|
|
|
|
|
'use, |
|
|
|
|
|
|
|
'usize, |
|
|
|
|
|
|
|
'while, |
|
|
|
|
|
|
|
)] (contains? keywords arg)) |
|
|
|
) |
|
|
|
) |
|
|
|
|
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
|
|
|