update inbox list

This commit is contained in:
manhlab
2021-04-07 19:25:18 -04:00
parent fda7245f7c
commit 436de2efd6
8576 changed files with 1013325 additions and 3 deletions

View File

@@ -0,0 +1,29 @@
<span class="hljs-keyword">let</span> i = <span class="hljs-number">14</span>
<span class="hljs-keyword">let</span> i = -<span class="hljs-number">14</span>
<span class="hljs-keyword">let</span> i = <span class="hljs-number">1_000</span>
<span class="hljs-keyword">let</span> i = <span class="hljs-number">0b100</span>
<span class="hljs-keyword">let</span> i = <span class="hljs-number">0x1FF</span>
<span class="hljs-keyword">let</span> i = <span class="hljs-number">0o777</span>
<span class="hljs-keyword">let</span> i64 = <span class="hljs-number">128L</span>
<span class="hljs-keyword">let</span> i64 = <span class="hljs-number">0b10L</span>
<span class="hljs-keyword">let</span> i32 = <span class="hljs-number">32l</span>
<span class="hljs-keyword">let</span> i32 = <span class="hljs-number">0x12l</span>
<span class="hljs-keyword">let</span> nat = <span class="hljs-number">10n</span>
<span class="hljs-keyword">let</span> nat = <span class="hljs-number">0o644n</span>
<span class="hljs-keyword">let</span> f = <span class="hljs-number">5.</span>
<span class="hljs-keyword">let</span> f = <span class="hljs-number">5.1</span>
<span class="hljs-keyword">let</span> f = <span class="hljs-number">1e+1</span>
<span class="hljs-keyword">let</span> f = <span class="hljs-number">1e1</span>
<span class="hljs-keyword">let</span> f = <span class="hljs-number">1e-1</span>
<span class="hljs-keyword">let</span> f = <span class="hljs-number">1_024e12</span>
<span class="hljs-keyword">let</span> f = <span class="hljs-number">1L</span>
<span class="hljs-keyword">let</span> b = <span class="hljs-literal">true</span> || <span class="hljs-literal">false</span>
<span class="hljs-keyword">let</span> l = <span class="hljs-literal">[]</span>
<span class="hljs-keyword">let</span> a = <span class="hljs-literal">[||]</span>
<span class="hljs-keyword">let</span> <span class="hljs-literal">()</span> = ignore (b)
<span class="hljs-keyword">let</span> c = <span class="hljs-string">'a'</span>
<span class="hljs-keyword">let</span> c = <span class="hljs-string">'\xFF'</span>
<span class="hljs-keyword">let</span> c = <span class="hljs-string">'\128'</span>
<span class="hljs-keyword">let</span> c = <span class="hljs-string">'\n'</span>

View File

@@ -0,0 +1,29 @@
let i = 14
let i = -14
let i = 1_000
let i = 0b100
let i = 0x1FF
let i = 0o777
let i64 = 128L
let i64 = 0b10L
let i32 = 32l
let i32 = 0x12l
let nat = 10n
let nat = 0o644n
let f = 5.
let f = 5.1
let f = 1e+1
let f = 1e1
let f = 1e-1
let f = 1_024e12
let f = 1L
let b = true || false
let l = []
let a = [||]
let () = ignore (b)
let c = 'a'
let c = '\xFF'
let c = '\128'
let c = '\n'

View File

@@ -0,0 +1,17 @@
<span class="hljs-comment">(* type variables *)</span>
<span class="hljs-keyword">type</span> <span class="hljs-symbol">'a</span> t = <span class="hljs-symbol">'a</span> <span class="hljs-built_in">list</span>
<span class="hljs-keyword">let</span> f (a : <span class="hljs-symbol">'a</span> <span class="hljs-built_in">list</span>) : <span class="hljs-symbol">'a</span> = <span class="hljs-type">List</span>.hd a
<span class="hljs-comment">(* polymorphic variants *)</span>
<span class="hljs-keyword">type</span> t = [ <span class="hljs-type">`A</span> | <span class="hljs-type">`B</span> ]
<span class="hljs-comment">(* variants *)</span>
<span class="hljs-keyword">type</span> result = <span class="hljs-type">Sat</span> | <span class="hljs-type">Unsat</span> | <span class="hljs-type">Unknown</span>
<span class="hljs-comment">(* module and module types *)</span>
<span class="hljs-keyword">module</span> <span class="hljs-keyword">type</span> <span class="hljs-type">S</span> = <span class="hljs-keyword">sig</span>
<span class="hljs-keyword">val</span> compute : <span class="hljs-built_in">unit</span> -&gt; <span class="hljs-built_in">unit</span>
<span class="hljs-keyword">end</span>
<span class="hljs-keyword">module</span> <span class="hljs-type">Impl</span> : <span class="hljs-type">S</span> = <span class="hljs-keyword">struct</span>
<span class="hljs-keyword">let</span> compute <span class="hljs-literal">()</span> = <span class="hljs-literal">()</span>
<span class="hljs-keyword">end</span>

View File

@@ -0,0 +1,17 @@
(* type variables *)
type 'a t = 'a list
let f (a : 'a list) : 'a = List.hd a
(* polymorphic variants *)
type t = [ `A | `B ]
(* variants *)
type result = Sat | Unsat | Unknown
(* module and module types *)
module type S = sig
val compute : unit -> unit
end
module Impl : S = struct
let compute () = ()
end