Skip to content

Commit

Permalink
Try to go faster by batching calls to a simplified nxt function.
Browse files Browse the repository at this point in the history
  • Loading branch information
jayfoad committed Dec 14, 2018
1 parent 2337291 commit 4631855
Showing 1 changed file with 12 additions and 0 deletions.
12 changes: 12 additions & 0 deletions p14fast.dyalog
Original file line number Diff line number Diff line change
@@ -0,0 +1,12 @@
⎕IO0
input⊃⊃⎕NGET'p14.txt'1
scores3 7

nxt{+1+tmp,scores[]}
super{tmp (scores)|(scores,(t<10)¨10 10t+/(0.5×tmp)2tmp)nxt(1+10÷¯1+(scores)-/)}4
possuper{input<¯10+scores}0 1
¨r10inputscores part 1

match¨input
{}super{/matchscores}pos
matchscores part 2

0 comments on commit 4631855

Please sign in to comment.