feat(sterni/aoc/2022): day09 BQN solution
Change-Id: Idad006eaacbd89827feb5bbd9d6e04605743fca2 Reviewed-on: https://cl.tvl.fyi/c/depot/+/7555 Autosubmit: sterni <sternenseemann@systemli.org> Reviewed-by: sterni <sternenseemann@systemli.org> Tested-by: BuildkiteCI
This commit is contained in:
		
							parent
							
								
									7ce6c7363c
								
							
						
					
					
						commit
						42a4f14878
					
				
					 1 changed files with 17 additions and 0 deletions
				
			
		
							
								
								
									
										17
									
								
								users/sterni/exercises/aoc/2022/09/9.bqn
									
										
									
									
									
										Normal file
									
								
							
							
						
						
									
										17
									
								
								users/sterni/exercises/aoc/2022/09/9.bqn
									
										
									
									
									
										Normal file
									
								
							|  | @ -0,0 +1,17 @@ | |||
| ⟨SplitOn,ReadDec⟩ ← •Import "../../lib.bqn" | ||||
| i ← ReadDec⌾(1⊸⊑)¨ (<' ')⊸SplitOn¨ •FLines "input" | ||||
| 
 | ||||
| UnitDelta ← (⊢÷(|+0⊸=)) | ||||
| ExpandStep ← { | ||||
|   𝕊 "L"‿l: 𝕊 (-l)‿0; | ||||
|   𝕊 "R"‿r: 𝕊 r‿0; | ||||
|   𝕊 "U"‿u: 𝕊 0‿u; | ||||
|   𝕊 "D"‿d: 𝕊 0‿(-d); | ||||
|   𝕊 delta: ((⌈´|)⥊<∘UnitDelta) delta | ||||
| } | ||||
| 
 | ||||
| Step ← {knots 𝕊 delta: {h 𝕊 t: (UnitDelta h-t) +⍟(1<⌈´|h-t) t}` (delta⊸+)⌾⊑ knots} | ||||
| Visited ← {+´0=⊒(¯1⊸⊑)¨(<𝕨⥊<0‿0) Step` ∾ExpandStep¨ 𝕩} | ||||
| 
 | ||||
| •Out "day09.1: "∾•Fmt  2 Visited i | ||||
| •Out "day09.2: "∾•Fmt 10 Visited i | ||||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue