Luis Vale Mendes lpvm

lpvm / insert database.ml

Created November 25, 2015 12:50

+let insert db contact =
+  if db.number_of_contacts >= Array.length db.contacts then
+    (false, db, nobody)
+  else
+    let (status, db, _) = search db contact in
+    if status then (false, db, contact) else
+      let cells i =
+	if i = db.number_of_contacts then contact else db.contacts.(i)
+      in
+      let db' = {

lpvm / parse.red

Created December 3, 2018 14:55

	Red []

	html: {
	<html>
	<head><title>Test</title></head>
	<body><div><u>Hello</u> <b>World</b></div></body>
	</html>
	}

	ws: charset reduce [space tab cr lf]

lpvm / gist:77780cb47fc8ef9281ce6188260ccbc2

Created December 3, 2018 16:38

Parse multiple lines copying to block

	i: "1#11^/2#22^/"
	b: copy []
	parse i [collect into b [copy l some digit "#" copy r some digit newline]]
	; == false
	probe l
	; == "1"
	probe r
	; "11"
	; == true
	probe b

lpvm / day07_part01.red

Created December 16, 2018 16:48

lpvm / input.test07

Created December 16, 2018 17:23

lines of text

	Step C must be finished before step A can begin.
	Step C must be finished before step F can begin.
	Step A must be finished before step B can begin.
	Step A must be finished before step D can begin.
	Step B must be finished before step E can begin.
	Step D must be finished before step E can begin.
	Step F must be finished before step E can begin.