Skip to content
Snippets Groups Projects
Commit 7c00f8d7 authored by Claire GIROT--PERSON's avatar Claire GIROT--PERSON
Browse files

maj_commentaires_4.2

parent d3737d0c
No related branches found
No related tags found
No related merge requests found
/_build/
*/.merlin
*/*/.merlin
DEADJOE
\ No newline at end of file
......@@ -12,7 +12,8 @@ let string_of_state (cmds,stack) =
(* Question 4.2 *)
let step state =
match state with
| [], _ -> Error("Nothing to step",state)
(* | [], _ -> Error("Nothing to step",state) *)
(* Exception configurations *)
| Pop::_, [] -> Error("Nothing to pop",state)
| Swap::_, _::[] -> Error("Nothing to swap",state)
| Swap::_, [] -> Error("Nothing to swap",state)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment