about summary refs log tree commit diff stats
path: root/lib/day22.ml
blob: 5f433e2eae038ea62532ee26d934f232f624e813 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
open! Imports

module M = struct
  (* Type to parse the input into *)
  type t = unit

  (* Parse the input to type t, invoked for both parts *)
  let parse _inputs = ()

  (* Run part 1 with parsed inputs *)
  let part1 _ = ()

  (* Run part 2 with parsed inputs *)
  let part2 _ = ()
end

include M
include Day.Make (M)

(* Example input *)
let example = ""

(* Expect test for example input *)
let%expect_test _ = run example ; [%expect {| |}]
="Generator" content="Vim/7.4"> <meta name="plugin-version" content="vim7.4_v1"> <meta name="syntax" content="none"> <meta name="settings" content="use_css,pre_wrap,no_foldcolumn,expand_tabs,prevent_copy="> <meta name="colorscheme" content="minimal"> <style type="text/css"> <!-- pre { white-space: pre-wrap; font-family: monospace; color: #eeeeee; background-color: #080808; } body { font-family: monospace; color: #eeeeee; background-color: #080808; } * { font-size: 1.05em; } .muScenario { color: #00af00; } .Comment { color: #9090ff; } .Constant { color: #00a0a0; } .Special { color: #ff6060; } --> </style> <script type='text/javascript'> <!-- --> </script> </head> <body> <pre id='vimCodeElement'> <span class="Comment"># To check our support for consoles in scenarios, rewrite tests from</span> <span class="Comment"># scenario_console.mu</span> <span class="Comment"># Tests for console interface.</span> <span class="muScenario">scenario</span> read-key-in-mu [ assume-console [ type <span class="Constant">[abc]</span> ] run [ <span class="Constant">1</span>:character, console:address:console, <span class="Constant">2</span>:boolean<span class="Special"> &lt;- </span>read-key console:address:console <span class="Constant">3</span>:character, console:address:console, <span class="Constant">4</span>:boolean<span class="Special"> &lt;- </span>read-key console:address:console <span class="Constant">5</span>:character, console:address:console, <span class="Constant">6</span>:boolean<span class="Special"> &lt;- </span>read-key console:address:console <span class="Constant">7</span>:character, console:address:console, <span class="Constant">8</span>:boolean<span class="Special"> &lt;- </span>read-key console:address:console ] memory-should-contain [ <span class="Constant">1</span><span class="Special"> &lt;- </span><span class="Constant">97</span> <span class="Comment"># 'a'</span> <span class="Constant">2</span><span class="Special"> &lt;- </span><span class="Constant">1</span> <span class="Constant">3</span><span class="Special"> &lt;- </span><span class="Constant">98</span> <span class="Comment"># 'b'</span> <span class="Constant">4</span><span class="Special"> &lt;- </span><span class="Constant">1</span> <span class="Constant">5</span><span class="Special"> &lt;- </span><span class="Constant">99</span> <span class="Comment"># 'c'</span> <span class="Constant">6</span><span class="Special"> &lt;- </span><span class="Constant">1</span> <span class="Constant">7</span><span class="Special"> &lt;- </span><span class="Constant">0</span> <span class="Comment"># eof</span> <span class="Constant">8</span><span class="Special"> &lt;- </span><span class="Constant">1</span> ] ] </pre> </body> </html> <!-- vim: set foldmethod=manual : -->