|
|
|
|
@ -984,9 +984,9 @@ |
|
|
|
|
(testing "Test main 04 agregar-ptocoma" |
|
|
|
|
(is (= |
|
|
|
|
(agregar-ptocoma |
|
|
|
|
(list 'fn 'main() (symbol "{") 'let 'v (symbol ":") 'i64 (symbol ";") 'let 'mut 'w (symbol ":") 'i64 (symbol ";") 'if 'y '>= '0 (symbol "{") 'v '= 'y (symbol ";") 'w '= 'y (symbol ";") (symbol "}") 'else (symbol "{") 'v '= '- 'y (symbol ";") 'w '= '- 'y (symbol ";") (symbol "}") 'while 'w '<= 'r (symbol "{") 'w '= '2 (symbol ";") (symbol "}") 'while 'w '> 'v (symbol "{") 'q '*= '2 (symbol ";") 'w (symbol "/=") '2 (symbol ";") 'if 'w '<= 'r (symbol "{") 'r '-= 'w (symbol ";") 'q '+= '1 (symbol ";") (symbol "}") (symbol "}") (symbol "}")) |
|
|
|
|
(list 'fn 'main (symbol "(") (symbol ")") (symbol "{") 'let 'v (symbol ":") 'i64 (symbol ";") 'let 'mut 'w (symbol ":") 'i64 (symbol ";") 'if 'y '>= '0 (symbol "{") 'v '= 'y (symbol ";") 'w '= 'y (symbol ";") (symbol "}") 'else (symbol "{") 'v '= '- 'y (symbol ";") 'w '= '- 'y (symbol ";") (symbol "}") 'while 'w '<= 'r (symbol "{") 'w '= '2 (symbol ";") (symbol "}") 'while 'w '> 'v (symbol "{") 'q (symbol "*=") '2 (symbol ";") 'w (symbol "/=") '2 (symbol ";") 'if 'w '<= 'r (symbol "{") 'r (symbol "-=") 'w (symbol ";") 'q (symbol "+=") '1 (symbol ";") (symbol "}") (symbol "}") (symbol "}")) |
|
|
|
|
) |
|
|
|
|
(list 'fn 'main() (symbol "{") 'let 'v (symbol ":") 'i64 (symbol ";") 'let 'mut 'w (symbol ":") 'i64 (symbol ";") 'if 'y '>= '0 (symbol "{") 'v '= 'y (symbol ";") 'w '= 'y (symbol ";") (symbol "}") 'else (symbol "{") 'v '= '- 'y (symbol ";") 'w '= '- 'y (symbol ";") (symbol "}") (symbol ";") 'while 'w '<= 'r (symbol "{") 'w '= '2 (symbol ";") (symbol "}") (symbol ";") 'while 'w '> 'v (symbol "{") 'q (symbol "*=") '2 (symbol ";") 'w (symbol "/=") '2 (symbol ";") 'if 'w '<= 'r (symbol "{") 'r (symbol "-=") 'w (symbol ";") 'q (symbol "+=") '1 (symbol ";") (symbol "}") (symbol "}") (symbol "}")) |
|
|
|
|
(list 'fn 'main (symbol "(") (symbol ")") (symbol "{") 'let 'v (symbol ":") 'i64 (symbol ";") 'let 'mut 'w (symbol ":") 'i64 (symbol ";") 'if 'y '>= '0 (symbol "{") 'v '= 'y (symbol ";") 'w '= 'y (symbol ";") (symbol "}") 'else (symbol "{") 'v '= '- 'y (symbol ";") 'w '= '- 'y (symbol ";") (symbol "}") (symbol ";") 'while 'w '<= 'r (symbol "{") 'w '= '2 (symbol ";") (symbol "}") (symbol ";") 'while 'w '> 'v (symbol "{") 'q (symbol "*=") '2 (symbol ";") 'w (symbol "/=") '2 (symbol ";") 'if 'w '<= 'r (symbol "{") 'r (symbol "-=") 'w (symbol ";") 'q (symbol "+=") '1 (symbol ";") (symbol "}") (symbol "}") (symbol "}")) |
|
|
|
|
)) |
|
|
|
|
) |
|
|
|
|
) |
|
|
|
|
|