kiss-lang/kiss-vscode
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

[aoc] silence more of the tests

Browse Source
This commit is contained in:
Nat Quayle Nelson
2021-04-28 19:54:34 -06:00
parent fcf422386d
commit 14b46091bc
2 changed files with 5 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
projects/aoc/src/year2020/BootCodeFixDSL.kiss
View File

@@ -17,22 +17,19 @@
(stream.dropWhitespace)
`(cond
((or self.forked (instructionsTested.exists self.instructionPointer))
(print "can't fork again")
(,instSymbol (,op 0 ,arg) self))
(true
(dictSet instructionsTested self.instructionPointer true)
(self.setBreakPoint)
(self.fork [
(lambda [:Dynamic self]
(print self.accumulator)
(when ,(ReaderExp.Symbol (Std.string (= inst "nop")))
(print (set self.forked true))
(set self.forked true)
(set self.forkedAt self.instructionPointer))
(jmp (,op 0 ,arg) self))
(lambda [:Dynamic self]
(print self.accumulator)
(when ,(ReaderExp.Symbol (Std.string (= inst "jmp")))
(print (set self.forked true))
(set self.forked true)
(set self.forkedAt self.instructionPointer))
(nop (,op 0 ,arg) self))
])))))

5
projects/aoc/src/year2020/Solutions.kiss
View File

@@ -96,7 +96,7 @@
(bootCode.setBreakHandler (lambda [bootCode] (assert (= 2058 (print bootCode.accumulator)))))
(bootCode.run))
(print "BootCodeFixExample")
(let [bootCode (new BootCodeFixExample)]
/* (let [bootCode (new BootCodeFixExample)]
(bootCode.setBreakHandler
(lambda [bootCodeFork]
(if (= bootCodeFork.instructionPointer (bootCodeFork.instructionCount))
@@ -112,7 +112,8 @@
(print (+ "answer could be " (Std.string bootCodeFork.accumulator) " forked at " (Std.string (+ 1 bootCodeFork.forkedAt))))
(print "hit an infinite loop"))))
(bootCode.addBreakPoint (bootCode.instructionCount))
(bootCode.run)))
(bootCode.run)) */
)
// Day 9
(when (<= 0 (days.indexOf 9))