Michael Kohl 馃嚘馃嚬馃嚬馃嚟 @citizen428@chaos.social 路 activity timestamp 2 months ago I like consistent colors in my terminal and I like #OCaml, so I threw together a quick Nord color scheme for utop:https://git.sr.ht/~citizen428/nord-utop Read more Read less Translate alt The following example code in a utop session show in the Nord colorscheme. # let rec sum = function | [] -> 0 | hd :: tl -> hd + sum tl;; val sum : int list -> int = <fun> # #show sum;; val sum : int list -> int # "Hello, " ^ "OCaml " ^ "World!";; - : string = "Hello, OCaml World!" # 1/0;; Exception: Division_by_zero. # 1 + "string";; Error: This constant has type string but an expression was expected of type int The following example code in a utop session show in the Nord colorscheme. # let rec sum = function | [] -> 0 | hd :: tl -> hd + sum tl;; val sum : int list -> int = <fun> # #show sum;; val sum : int list -> int # "Hello, " ^ "OCaml " ^ "World!";; - : string = "Hello, OCaml World!" # 1/0;; Exception: Division_by_zero. # 1 + "string";; Error: This constant has type string but an expression was expected of type int Reply Boost Quote pending approval Like More actions Copy link Flag this post Block
alt The following example code in a utop session show in the Nord colorscheme. # let rec sum = function | [] -> 0 | hd :: tl -> hd + sum tl;; val sum : int list -> int = <fun> # #show sum;; val sum : int list -> int # "Hello, " ^ "OCaml " ^ "World!";; - : string = "Hello, OCaml World!" # 1/0;; Exception: Division_by_zero. # 1 + "string";; Error: This constant has type string but an expression was expected of type int The following example code in a utop session show in the Nord colorscheme. # let rec sum = function | [] -> 0 | hd :: tl -> hd + sum tl;; val sum : int list -> int = <fun> # #show sum;; val sum : int list -> int # "Hello, " ^ "OCaml " ^ "World!";; - : string = "Hello, OCaml World!" # 1/0;; Exception: Division_by_zero. # 1 + "string";; Error: This constant has type string but an expression was expected of type int
![The following example code in a utop session show in the Nord colorscheme.
# let rec sum = function
| [] -> 0
| hd :: tl -> hd + sum tl;;
val sum : int list -> int = <fun>
# #show sum;;
val sum : int list -> int
# "Hello, " ^ "OCaml " ^ "World!";;
- : string = "Hello, OCaml World!"
# 1/0;;
Exception: Division_by_zero.
# 1 + "string";;
Error: This constant has type string but an expression was expected of type int](https://assets.chaos.social/media_attachments/files/115/458/721/336/336/306/original/7af3206dd425fc17.png)