From 44d26b77c45668c9b0c99894a4294cec004361fe Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Fri, 16 Jul 2021 08:09:42 -0700 Subject: . --- linux/apps/advent2017/1a.mu | 65 +++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 65 insertions(+) create mode 100644 linux/apps/advent2017/1a.mu (limited to 'linux/apps/advent2017') diff --git a/linux/apps/advent2017/1a.mu b/linux/apps/advent2017/1a.mu new file mode 100644 index 00000000..aae12989 --- /dev/null +++ b/linux/apps/advent2017/1a.mu @@ -0,0 +1,65 @@ +# Advent of code 2017, problem 1a +# https://adventofcode.com/2017/day/1 +# +# Mu solution by Sumeet Agarwal and Kartik Agaram +# https://archive.org/details/2021-06-02-akkartik-sumeet +# +# To build on Linux: +# $ git clone https://github.com/akkartik/mu +# $ cd mu/linux +# $ ./translate apps/advent2017/1a.mu # emits a.elf +# To run on Linux: +# Download https://adventofcode.com/2017/day/1/input +# $ ./a.elf < input +# Type in the number returned at https://adventofcode.com/2017/day/1 + +fn main -> _/ebx: int { + var input_stream: (stream byte 0x8000) + var input_stream_addr/esi: (addr stream byte) <- address input_stream + + var sum/edi: int <- copy 0 + read-line-from-real-keyboard input_stream_addr + + var temp/eax: int <- read_digit input_stream_addr + var first_digit/ebx: int <- copy temp + var this_digit/edx: int <- copy temp + + { + var done?/eax: boolean <- stream-empty? input_stream_addr + compare done?, 1 + break-if-= + + var next_digit/eax: int <- read_digit input_stream_addr + # hacky newline check + compare next_digit, 0 + break-if-< + + { + compare this_digit, next_digit + break-if-!= + sum <- add this_digit + } + + this_digit <- copy next_digit + + loop + } + + # the last iteration will need to compare the last number to the first + { + compare this_digit, first_digit + break-if-!= + sum <- add this_digit + } + + print-int32-decimal 0, sum + + return 0/ok +} + +fn read_digit input_stream_addr: (addr stream byte) -> _/eax: int { + var next_digit/eax: byte <- read-byte input_stream_addr + next_digit <- subtract 0x30 + var next_digit/eax: int <- copy next_digit + return next_digit +} -- cgit 1.4.1-2-gfad0 ='author'>author
path: root/html/411string.mu.html
blob: c552176e36f6fd4da283169530f4001f4fff945e (plain) (tree) 
78357b88 ^

3d1c4216 ^


78357b88 ^

3d1c4216 ^

78357b88 ^


3d1c4216 ^

78357b88 ^

ec32c11d ^

78357b88 ^

3d1c4216 ^

dc5a0acf ^


3d1c4216 ^


372367f5 ^

78357b88 ^

372367f5 ^

372367f5 ^


372367f5 ^

78357b88 ^

3d1c4216 ^


78357b88 ^

372367f5 ^

78357b88 ^

3d1c4216 ^



78357b88 ^

3d1c4216 ^





























762107fd ^

3d1c4216 ^




dd60caa3 ^

3350c34a ^

3d1c4216 ^

dd60caa3 ^

3d1c4216 ^


372367f5 ^

3d1c4216 ^




372367f5 ^

3350c34a ^

3d1c4216 ^


3350c34a ^

3d1c4216 ^



3350c34a ^

3d1c4216 ^




372367f5 ^

3350c34a ^

3d1c4216 ^

3350c34a ^

3d1c4216 ^

3350c34a ^

3d1c4216 ^



775f77c3 ^

3d1c4216 ^




dd60caa3 ^

3d1c4216 ^


372367f5 ^

3350c34a ^

3d1c4216 ^

372367f5 ^

3d1c4216 ^


3350c34a ^

3d1c4216 ^


372367f5 ^

3d1c4216 ^


3350c34a ^

3d1c4216 ^


372367f5 ^

3350c34a ^

3d1c4216 ^


372367f5 ^

3350c34a ^

3d1c4216 ^


372367f5 ^

3350c34a ^

3d1c4216 ^


372367f5 ^

3350c34a ^

3d1c4216 ^


372367f5 ^

3350c34a ^

3d1c4216 ^


372367f5 ^

3350c34a ^

3d1c4216 ^


372367f5 ^

3350c34a ^

3d1c4216 ^




dd60caa3 ^

3350c34a ^

3d1c4216 ^

dd60caa3 ^

3d1c4216 ^

dd60caa3 ^

3d1c4216 ^

372367f5 ^

3d1c4216 ^









372367f5 ^

775f77c3 ^

3d1c4216 ^

3350c34a ^

3d1c4216 ^


3350c34a ^

3d1c4216 ^


775f77c3 ^

3d1c4216 ^




dd60caa3 ^

3d1c4216 ^








1

2
3

4

5

6
7

8

9

10

11

12

13
14

15
16

17

18

19

20
21

22

23

24
25

26

27

28

29
30
31

32

33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61

62

63
64
65
66

67

68

69

70

71
72

73

74
75
76
77

78

79

80
81

82

83
84
85

86

87
88
89
90

91

92

93

94

95

96

97
98
99

100

101
102
103
104

105

106
107

108

109

110

111

112
113

114

115
116

117

118
119

120

121
122

123

124

125
126

127

128

129
130

131

132

133
134

135

136

137
138

139

140

141
142

143

144

145
146

147

148

149
150
151
152

153

154

155

156

157

158

159

160

161
162
163
164
165
166
167
168
169

170

171

172

173

174
175

176

177
178

179

180
181
182
183

184

185
186
187
188
189
190
191
192