Mu - apps/advent2020/1b.mu

From 3350c34a74844e21ea69077e01efff3bae64bdcd Mon Sep 17 00:00:00 2001 From: Kartik Agaram Date: Tue, 23 Mar 2021 17:31:08 -0700 Subject: . --- html/apps/advent2020/1b.mu.html | 176 ---------------------------------------- 1 file changed, 176 deletions(-) delete mode 100644 html/apps/advent2020/1b.mu.html (limited to 'html/apps/advent2020/1b.mu.html') diff --git a/html/apps/advent2020/1b.mu.html b/html/apps/advent2020/1b.mu.html deleted file mode 100644 index 2affa9bd..00000000 --- a/html/apps/advent2020/1b.mu.html +++ /dev/null @@ -1,176 +0,0 @@ - - - - -Mu - apps/advent2020/1b.mu - - - - - - - - - - -https://github.com/akkartik/mu/blob/main/apps/advent2020/1b.mu -

-  1 # https://adventofcode.com/2020/day/1
-  2 #
-  3 # To run (on Linux):
-  4 #   $ git clone https://github.com/akkartik/mu
-  5 #   $ cd mu
-  6 #   $ ./translate_mu apps/advent2020/1b.mu
-  7 #   $ ./a.elf < input
-  8 #   found
-  9 #   143 407 1470
- 10 #   85555470
- 11 #
- 12 # You'll need to register to download the 'input' file for yourself.
- 13 
- 14 fn main -> _/ebx: int {
- 15   # data structure
- 16   var numbers-storage: (array int 0x100)  # 256 ints
- 17   var numbers/esi: (addr array int) <- address numbers-storage
- 18   var numbers-index/ecx: int <- copy 0
- 19   # phase 1: parse each line from stdin and add it to numbers
- 20   {
- 21     var line-storage: (stream byte 0x100)  # 256 bytes
- 22     var line/edx: (addr stream byte) <- address line-storage
- 23     {
- 24 #?       print-string 0, "== iter\n"
- 25       # read line from stdin
- 26       clear-stream line
- 27       read-line-from-real-keyboard line
- 28       # if line is empty (not even a newline), quit
- 29       var done?/eax: boolean <- stream-empty? line
- 30       compare done?, 0  # false
- 31       break-if-!=
- 32 #?       print-stream-to-real-screen line
- 33       # convert line to int and append it to numbers
- 34       var n/eax: int <- parse-decimal-int-from-stream line
- 35 #?       print-int32-decimal 0, n
- 36 #?       print-string 0, "\n"
- 37       var dest/ebx: (addr int) <- index numbers, numbers-index
- 38       copy-to *dest, n
- 39       numbers-index <- increment
- 40 #?       print-string 0, "== "
- 41 #?       print-int32-decimal 0, numbers-index
- 42 #?       print-string 0, "\n"
- 43       loop
- 44     }
- 45   }
- 46   # phase 2: for every pair of distinct numbers, check if the rest of the
- 47   # array has 2020-it
- 48   var i/edi: int <- copy 0
- 49   {
- 50     compare i, numbers-index
- 51     break-if->=
- 52     # for j from i+1 to end
- 53     var j/edx: int <- copy i
- 54     j <- increment
- 55     {
- 56       compare j, numbers-index
- 57       break-if->=
- 58       {
- 59         compare i, j
- 60         break-if-=
- 61         var target/ebx: int <- copy 0x7e4  # 2020
- 62         var src/edi: (addr int) <- index numbers, i
- 63         target <- subtract *src
- 64         var src2/ecx: (addr int) <- index numbers, j
- 65         target <- subtract *src2
- 66         {
- 67           var found?/eax: boolean <- find-after numbers, j, target
- 68           compare found?, 0  # false
- 69           break-if-=
- 70           print-string 0, "found\n"
- 71           print-int32-decimal 0, *src
- 72           print-string 0, " "
- 73           print-int32-decimal 0, *src2
- 74           print-string 0, " "
- 75           print-int32-decimal 0, target
- 76           print-string 0, "\n"
- 77           target <- multiply *src
- 78           target <- multiply *src2
- 79           print-int32-decimal 0, target
- 80           print-string 0, "\n"
- 81           return 0  # success
- 82         }
- 83       }
- 84       j <- increment
- 85       loop
- 86     }
- 87     i <- increment
- 88     loop
- 89   }
- 90   return 1  # not found
- 91 }
- 92 
- 93 fn find-after _numbers: (addr array int), start: int, _target: int -> _/eax: boolean {
- 94   var numbers/esi: (addr array int) <- copy _numbers
- 95   var target/edi: int <- copy _target
- 96   var len/ecx: int <- length numbers
- 97   var i/eax: int <- copy start
- 98   i <- increment
- 99   {
-100     compare i, len
-101     break-if->=
-102     var src/edx: (addr int) <- index numbers, i
-103     # if *src == target, return true
-104     compare *src, target
-105     {
-106       break-if-!=
-107       return 1  # true
-108     }
-109     i <- increment
-110     loop
-111   }
-112   return 0  # false
-113 }
-

- - - -- cgit 1.4.1-2-gfad0