mu - Soul of a tiny new machine. More thorough tests → More comprehensible and rewrite-friendly software → More resilient society.

	Commit message (Expand)	Author	Age	Files	Lines
*	.	Kartik Agaram	2021-06-26	30	-159/+159
*	.	Kartik Agaram	2021-06-24	30	-246/+247
*	.	Kartik Agaram	2021-05-18	2	-0/+48
*	.	Kartik Agaram	2021-04-21	30	-1314/+1320
*	.	Kartik Agaram	2021-03-23	30	-0/+13032

<!DOCTYPE html> <html> <head> <meta charset="UTF-8"> <title>Mu - linux/apps/advent2020/2b.mu</title> <meta name="Generator" content="Vim/8.2"> <meta name="plugin-version" content="vim8.1_v2"> <meta name="syntax" content="none"> <meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=,use_input_for_pc=fallback"> <meta name="colorscheme" content="minimal-light"> <style>  </style> <script>  </script> </head> <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/main/linux/apps/advent2020/2b.mu'>https://github.com/akkartik/mu/blob/main/linux/apps/advent2020/2b.mu</a> <pre id='vimCodeElement'> 1 # <a href="https://adventofcode.com/2020/day/2">https://adventofcode.com/2020/day/2</a> 2 # 3 # To run (on Linux): 4 # $ git clone <a href="https://github.com/akkartik/mu">https://github.com/akkartik/mu</a> 5 # $ cd mu 6 # $ ./translate apps/advent2020/2b.mu 7 # $ ./a.elf < input 8 # 9 # You'll need to register to download the 'input' file for yourself. 10 11 fn <a href='2b.mu.html#L11'>main</a> -> _/ebx: int { 12 var valid-password-count/edi: int <- copy 0 13 var line-storage: (stream byte 0x100) # 256 bytes 14 var line/edx: (addr stream byte) <- address line-storage 15 var slice-storage: slice 16 var slice/ecx: (addr slice) <- address slice-storage 17 { 18 # read line from stdin 19 <a href='../../106stream.subx.html#L17'>clear-stream</a> line 20 <a href='../../305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> line 21 # if line is empty (not even a newline), quit 22 var done?/eax: boolean <- <a href='../../309stream.subx.html#L6'>stream-empty?</a> line 23 compare done?, 0/false 24 break-if-!= 25 <a href='../../304screen.subx.html#L147'>print-stream-to-real-screen</a> line 26 # slice = next-token(line, '-') 27 <a href='../../124next-token.subx.html#L10'>next-token</a> line, 0x2d, slice 28 # pos1 = parse-int(slice) 29 var _pos1/eax: int <- <a href='../../311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> slice 30 var pos1/ebx: int <- copy _pos1 31 var dash/eax: byte <- <a href='../../112read-byte.subx.html#L273'>read-byte</a> line # skip '-' 32 # slice = next-token(line, ' ') 33 <a href='../../124next-token.subx.html#L10'>next-token</a> line, 0x20, slice 34 var _pos2/eax: int <- <a href='../../311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> slice 35 var pos2/esi: int <- copy _pos2 36 <a href='../../405screen.mu.html#L484'>print-int32-decimal</a> 0, pos1 37 <a href='../../405screen.mu.html#L169'>print-string</a> 0, " " 38 <a href='../../405screen.mu.html#L484'>print-int32-decimal</a> 0, pos2 39 <a href='../../405screen.mu.html#L169'>print-string</a> 0, "\n" 40 compare pos1, pos2 41 { 42 break-if-<= 43 <a href='../../405screen.mu.html#L169'>print-string</a> 0, "out of order!\n" 44 return 1 45 } 46 # letter = next non-space 47 <a href='../../124next-token.subx.html#L464'>skip-chars-matching-whitespace</a> line 48 var letter/eax: byte <- <a href='../../112read-byte.subx.html#L273'>read-byte</a> line 49 # skip some stuff 50 { 51 var colon/eax: byte <- <a href='../../112read-byte.subx.html#L273'>read-byte</a> line # skip ':' 52 } 53 <a href='../../124next-token.subx.html#L464'>skip-chars-matching-whitespace</a> line 54 # now check the rest of the line 55 var <a href='2b.mu.html#L72'>valid?</a>/eax: boolean <- <a href='2b.mu.html#L72'>valid?</a> pos1, pos2, letter, line 56 compare <a href='2b.mu.html#L72'>valid?</a>, 0/false 57 { 58 break-if-= 59 <a href='../../405screen.mu.html#L169'>print-string</a> 0, "valid!\n" 60 valid-password-count <- increment 61 } 62 loop 63 } 64 <a href='../../405screen.mu.html#L484'>print-int32-decimal</a> 0, valid-password-count 65 <a href='../../405screen.mu.html#L169'>print-string</a> 0, "\n" 66 return 0 67 } 68 69 # ideally password would be a random-access array 70 # we'll just track an index 71 # one benefit: we can easily start at 1 72 fn <a href='2b.mu.html#L72'>valid?</a> pos1: int, pos2: int, letter: byte, password: (addr stream byte) -> _/eax: boolean { 73 var i/esi: int <- copy 1 74 var letter-count/edi: int <- copy 0 75 # while password stream isn't empty 76 # c = read byte from password 77 # if (c == letter) 78 # if (i == pos1) 79 # ++letter-count 80 # if (i == pos2) 81 # ++letter-count 82 # ++i 83 { 84 #? print-string 0, " " 85 #? print-int32-decimal 0, i 86 #? print-string 0, "\n" 87 var done?/eax: boolean <- <a href='../../309stream.subx.html#L6'>stream-empty?</a> password 88 compare done?, 0/false 89 break-if-!= 90 var c/eax: byte <- <a href='../../112read-byte.subx.html#L273'>read-byte</a> password 91 #? { 92 #? var c2/eax: int <- copy c 93 #? print-int32-decimal 0, c2 94 #? print-string 0, "\n" 95 #? } 96 compare c, letter 97 { 98 break-if-!= 99 compare i, pos1 100 { 101 break-if-!= 102 letter-count <- increment 103 #? print-string 0, " hit\n" 104 } 105 compare i, pos2 106 { 107 break-if-!= 108 letter-count <- increment 109 #? print-string 0, " hit\n" 110 } 111 } 112 i <- increment 113 loop 114 } 115 # return (letter-count == 1) 116 compare letter-count, 1 117 { 118 break-if-!= 119 return 1/true 120 } 121 return 0/false 122 } </pre> </body> </html>