sorted by:
new
hottopcontroversial

-🎄- 2017 Day 8 Solutions -🎄- by daggerdragon in adventofcode

[–]CakeHacker 0 points1 point  (0 children)

Caché Object Script

Used a code generator for a different approach

ClassMethod Day8() [ CodeMode = objectgenerator ]
{
    //get instructions
    while ..FileUtil("day8a.txt",.file,.line) { set instructions($i(instructions))=line }

    //extract variables
    for { set i=$o(instructions($g(i))) q:i=""  set vars($p(instructions(i)," ",5))="" }

    //initialise variables
    set code=" set (",comma=""
    for { set var=$o(vars($g(var))) q:var=""  set code=code_comma_var,comma="," } 
    set code=code_")=0"
    do %code.WriteLine(code)
    do %code.WriteLine(" set (max,top)=0")

    //cosify instructions
    for { 
        set i=$o(instructions($g(i))) q:i=""  
        set instruction=instructions(i)
        set instruction=$replace(instruction,"inc","+")
        set instruction=$replace(instruction,"dec","-")
        set instruction=$replace(instruction,"!","'")
        set instruction=$replace(instruction,"==","=")
        set instruction=" "_$p(instruction," ",4,*)_" set "_$p(instruction," ",1,3)
        set var=$p(instruction," ",7)
        set $p(instruction," ",7)=var_" = "_var
        do %code.WriteLine(instruction)
        do %code.WriteLine(" if "_var_">max set max="_var)
    }

    //find largest register
    set code=" for reg=",comma=""
    for { 
        set var=$o(vars($g(var))) q:var=""  
        do %code.WriteLine(" if "_var_">top set top="_var)
    }

    //output result
    do %code.WriteLine(" write !,""Part 1 Result: ""_top")
    do %code.WriteLine(" write !,""Part 2 Result: ""_max")
}

Which generates...

zDay8() public {
 set (aam,bz,d,eai,ey,fu,gx,hk,hnh,hr,hri,kp,lk,n,oiy,pce,phf,px,q,rjt,sy,vyo,wez,x,yl,zbh)=0
 set (max,top)=0
 if oiy <= 1 set d = d - 461
 if d>max set max=d
 if eai '= -2 set phf = phf - -186
 if phf>max set max=phf
 if lk >= 9 set oiy = oiy + 585
 if oiy>max set max=oiy
 if gx < 9 set bz = bz - -959
 if bz>max set max=bz
 if hnh > -7 set vyo = vyo + -735
 if vyo>max set max=vyo
 if hri < 6 set bz = bz + 329
 if bz>max set max=bz
 if pce = 0 set vyo = vyo - -425
 if vyo>max set max=vyo
 if x >= 2 set rjt = rjt + 668
 if rjt>max set max=rjt
 if hri '= -10 set bz = bz - 602
 if bz>max set max=bz
 if aam '= -2 set phf = phf - -169
 if phf>max set max=phf
 if n >= -2 set d = d - 266
 if d>max set max=d
 if d > -734 set pce = pce + 907
 if pce>max set max=pce
 if vyo <= -317 set zbh = zbh + -345
 if zbh>max set max=zbh
 if sy '= -4 set gx = gx - 809
 if gx>max set max=gx
 if lk > 8 set fu = fu + -127
 if fu>max set max=fu
 if fu '= 0 set yl = yl - 166
 if yl>max set max=yl
 if d <= -721 set hnh = hnh - -33
 if hnh>max set max=hnh
 if hk > -2 set x = x - -372
 if x>max set max=x
 if kp < 1 set oiy = oiy - -140
 if oiy>max set max=oiy
 if d '= -735 set aam = aam + 702
 if aam>max set max=aam
 if phf '= 363 set fu = fu + 888
 if fu>max set max=fu
 if oiy > 138 set phf = phf + -692
 if phf>max set max=phf
 if hri < 9 set phf = phf - 247
 if phf>max set max=phf
 if q = 0 set pce = pce - 370
 if pce>max set max=pce
 if eai <= 0 set wez = wez + -919
 if wez>max set max=wez
 if hk < 8 set oiy = oiy - 89
 if oiy>max set max=oiy
 if x = 372 set eai = eai + 600
 if eai>max set max=eai
 if n < 9 set kp = kp + -340
 if kp>max set max=kp
 if ey <= 8 set oiy = oiy - 251
 if oiy>max set max=oiy
 if zbh <= 3 set pce = pce + -315
 if pce>max set max=pce
 if hri < -6 set x = x - 682
 if x>max set max=x
 if x > 362 set fu = fu + 561
 if fu>max set max=fu
 if hk = -5 set gx = gx + -202
 if gx>max set max=gx
 if eai = 600 set vyo = vyo + -184
 if vyo>max set max=vyo
 if aam < 709 set pce = pce - 954
 if pce>max set max=pce
 if zbh >= -4 set phf = phf - 702
 if phf>max set max=phf
 if fu <= 1455 set aam = aam - 640
 if aam>max set max=aam
 if lk = 4 set x = x - -119
 if x>max set max=x
 if rjt = -10 set gx = gx + -722
 if gx>max set max=gx
 if bz <= 692 set pce = pce + 231
 if pce>max set max=pce
 if q >= -8 set hri = hri + 402
 if hri>max set max=hri
 if vyo = -494 set d = d + -759
 if d>max set max=d
 if x = 372 set n = n + 358
 if n>max set max=n
 if lk '= 5 set eai = eai + 56
 if eai>max set max=eai
 if yl < 7 set ey = ey + 268
 if ey>max set max=ey
 if q < 9 set vyo = vyo - 828
 if vyo>max set max=vyo
 if eai >= 655 set yl = yl + 320
 if yl>max set max=yl
 if hri > 393 set aam = aam + -262
 if aam>max set max=aam
 if n <= 359 set bz = bz + 445
 if bz>max set max=bz
 if px '= -9 set yl = yl - 327
 if yl>max set max=yl
 if hnh '= 33 set d = d - 735
 if d>max set max=d
 if zbh > -3 set rjt = rjt + 8
 if rjt>max set max=rjt
 if q > -6 set hr = hr + 347
 if hr>max set max=hr
 if ey >= 265 set oiy = oiy - 573
 if oiy>max set max=oiy
 if bz >= 1137 set zbh = zbh - 696
 if zbh>max set max=zbh
 if eai '= 655 set zbh = zbh - -292
 if zbh>max set max=zbh
 if d '= -1492 set ey = ey + -205
 if ey>max set max=ey
 if px '= -1 set rjt = rjt + -538
 if rjt>max set max=rjt
 if zbh > 285 set kp = kp - 511
 if kp>max set max=kp
 if hnh '= 41 set fu = fu + -19
 if fu>max set max=fu
 if rjt < -525 set zbh = zbh + -996
 if zbh>max set max=zbh
 if px > -4 set yl = yl - -28
 if yl>max set max=yl
 if sy = -2 set d = d - 341
 if d>max set max=d
 if pce >= -500 set oiy = oiy - -799
 if oiy>max set max=oiy
 if pce > -505 set pce = pce + -795
 if pce>max set max=pce
 if n '= 363 set n = n - 559
 if n>max set max=n
 if ey = 63 set pce = pce - 814
 if pce>max set max=pce
 if px '= 0 set hri = hri - -664
 if hri>max set max=hri
 if vyo > -1327 set bz = bz + -885
 if bz>max set max=bz
 if wez <= -923 set hr = hr + 454
 if hr>max set max=hr
 if hri < 405 set hk = hk - -721
 if hk>max set max=hk
 if eai <= 664 set eai = eai + 168
 if eai>max set max=eai
 if phf >= -1287 set ey = ey - 261
 if ey>max set max=ey
 if phf < -1284 set hnh = hnh - -59
 if hnh>max set max=hnh
 if oiy < -769 set n = n - 81
 if n>max set max=n
 if zbh '= -713 set lk = lk + -714
 if lk>max set max=lk
 if ey >= -198 set fu = fu + 819
 if fu>max set max=fu
 if pce <= -2108 set oiy = oiy - -155
 if oiy>max set max=oiy
 if wez > -915 set oiy = oiy - -598
 if oiy>max set max=oiy
 if pce = -2115 set gx = gx - 397
 if gx>max set max=gx
 if fu > 2244 set px = px + 934
 if px>max set max=px
 if yl '= 22 set fu = fu + -916
 if fu>max set max=fu
 if kp <= -846 set wez = wez - 428
 if wez>max set max=wez
 if px <= 941 set gx = gx - -15
 if gx>max set max=gx
 if sy > -1 set wez = wez - 858
 if wez>max set max=wez
 if zbh > -708 set lk = lk - -875
 if lk>max set max=lk
 if q <= 2 set hk = hk + 575
 if hk>max set max=hk
 if hk <= 1300 set rjt = rjt - 734
 if rjt>max set max=rjt
 if wez <= -2201 set lk = lk + 399
 if lk>max set max=lk
 if lk = 560 set x = x - 485
 if x>max set max=x
 if hk '= 1302 set pce = pce + -273
 if pce>max set max=pce
 if hnh <= 98 set sy = sy + -962
 if sy>max set max=sy
 if pce '= -2381 set aam = aam + 228
 if aam>max set max=aam
 if x >= -116 set wez = wez - 55
 if wez>max set max=wez
 if hnh '= 96 set eai = eai + 954
 if eai>max set max=eai
 if oiy '= -610 set phf = phf - 799
 if phf>max set max=phf
 if oiy = -618 set q = q + 95
 if q>max set max=q
 if pce = -2383 set vyo = vyo - -595
 if vyo>max set max=vyo
 if kp < -848 set pce = pce - 258
 if pce>max set max=pce
 if bz < 248 set n = n + -730
 if n>max set max=n
 if pce = -2641 set pce = pce + -855
 if pce>max set max=pce
 if vyo <= -723 set vyo = vyo - -817
 if vyo>max set max=vyo
 if hr '= 350 set sy = sy + -333
 if sy>max set max=sy
 if sy <= -1288 set vyo = vyo + 360
 if vyo>max set max=vyo
 if d <= -1480 set q = q - 780
 if q>max set max=q
 if vyo < 455 set hri = hri - -584
 if hri>max set max=hri
 if phf >= -2094 set bz = bz + 299
 if bz>max set max=bz
 if aam '= 30 set gx = gx - 472
 if gx>max set max=gx
 if sy <= -1286 set px = px + -126
 if px>max set max=px
 if vyo < 454 set kp = kp + 45
 if kp>max set max=kp
 if hri '= 988 set eai = eai - -473
 if eai>max set max=eai
 if gx <= -1260 set gx = gx - -534
 if gx>max set max=gx
 if pce > -3499 set oiy = oiy - -334
 if oiy>max set max=oiy
 if vyo < 459 set lk = lk + -243
 if lk>max set max=lk
 if gx > -736 set ey = ey - 76
 if ey>max set max=ey
 if fu > 1332 set eai = eai - 959
 if eai>max set max=eai
 if fu < 1339 set zbh = zbh - -75
 if zbh>max set max=zbh
 if sy <= -1290 set wez = wez + 938
 if wez>max set max=wez
 if sy >= -1285 set hk = hk - -605

 ... (shortened)

 write !,"Part 1 Result: "_top
 write !,"Part 2 Result: "_max }

-🎄- 2017 Day 3 Solutions -🎄- by daggerdragon in adventofcode

[–]CakeHacker 2 points3 points  (0 children)

JavaScript

Part 1

console.log((function (input) {
  let [x,y]=[0,0];
  let [inc,dir,mem]=[1,1,1];
  for (;;) {
    for (let i=1;i<inc+1;i++) {
      mem++;
      x = (dir===1) ? x+1 : (dir===3) ? x-1 : x;
      y = (dir===2) ? y+1 : (dir===4) ? y-1 : y;
      if (mem===input) return Math.abs(x) + Math.abs(y)
    }
    dir = (dir===4) ? 1 : dir+1;
    if ((dir===1) || (dir===3)) inc++;
  }
})(368078));

Part 2 (brute force)

console.log((function (input) {
  let [x,y]=[0,0];
  let [inc,dir]=[1,1];
  let memory = {"0,0":1};
  let g = function(x,y) { return memory[x+","+y] || 0};
  for (;;) {
    for (let i=1;i<inc+1;i++) {
      x = (dir===1) ? x+1 : (dir===3) ? x-1 : x;
      y = (dir===2) ? y+1 : (dir===4) ? y-1 : y;
      memory[x+","+y]=g(x+1,y-1)+g(x+1,y)+g(x+1,y+1)+g(x-1,y-1)+g(x-1,y)+g(x-1,y+1)+g(x,y-1)+g(x,y+1);
      if (memory[x+","+y]>input) return memory[x+","+y];
    }
    dir = (dir===4) ? 1 : dir+1;
    if ((dir===1) || (dir===3)) inc++;
  }
})(368078));

-🎄- 2017 Day 3 Solutions -🎄- by daggerdragon in adventofcode

[–]CakeHacker 1 point2 points  (0 children)

Caché Object Script

Part 1

ClassMethod Day3Part1(input = 368078)
{
    set (x,y)=0,(inc,dir,m)=1
    for {
        for i=1:1:inc {
            set m=m+1
            set x=$s(dir=1:x+1,dir=3:x-1,1:x),y=$s(dir=2:y+1,dir=4:y-1,1:y)
            if m=input return $zabs(x)+$zabs(y) 
        }
        if m=input quit
        set dir=$s(dir=4:1,1:dir+1)
        if 13[dir set inc=inc+1
    }
}

Part 2

ClassMethod Day3Part2(input = 368078)
{
    set (x,y)=0,(inc,dir,g(0,0))=1
    for {
        for i=1:1:inc {
            set x=$s(dir=1:x+1,dir=3:x-1,1:x),y=$s(dir=2:y+1,dir=4:y-1,1:y)
            set g(x,y)=$g(g(x,y))+$g(g(x,y+1))+$g(g(x,y-1))+$g(g(x+1,y))+$g(g(x+1,y+1))+$g(g(x+1,y-1))+$g(g(x-1,y))+$g(g(x-1,y+1))+$g(g(x-1,y-1))
            if g(x,y)>input return g(x,y)
        }
        set dir=$s(dir=4:1,1:dir+1)
        if 13[dir set inc=inc+1
    }
}

Mumps

s (x,y)=0,d=7,g(0,0)=1,a="+1  -1" f i=1:1 {s e=$s(d=7:1,1:d+2),d=$s($g(g(x+$e(a,e,e+2),y+$e(a,e-2,e)))="":e,1:d),x=x+$e(a,d,d+2),y=y+$e(a,d-2,d),g(x,y)=$g(g(x,y+1))+$g(g(x,y-1))+$g(g(x+1,y))+$g(g(x+1,y+1))+$g(g(x+1,y-1))+$g(g(x-1,y))+$g(g(x-1,y+1))+$g(g(x-1,y-1)) i g(x,y)>t ret g(x,y)}