From 64226237959f609a8a9a4994b6b02aa6a6de623f Mon Sep 17 00:00:00 2001 From: Smaug123 Date: Mon, 20 Dec 2021 12:56:49 +0000 Subject: [PATCH] Remove some Mathematica nonanswers --- day_3/day_3.m | 7 ------- day_4/day_4.m | 7 ------- day_5/day_5.m | 7 ------- 3 files changed, 21 deletions(-) delete mode 100644 day_3/day_3.m delete mode 100644 day_4/day_4.m delete mode 100644 day_5/day_5.m diff --git a/day_3/day_3.m b/day_3/day_3.m deleted file mode 100644 index f9f6047..0000000 --- a/day_3/day_3.m +++ /dev/null @@ -1,7 +0,0 @@ -(* ::Package:: *) - -nums=Import[StringJoin[NotebookDirectory[], "/input.txt"],"Table"]; - -part1 = 1##&@@Tr[1##&@@@(#/."up"->-"down")]&; - -part2=1##&@@Rest@Fold[Function[{state,elt},Switch[elt[[1]],"forward",state+{0,elt[[2]],state[[1]] elt[[2]]},"down",MapAt[elt[[2]]+#&,state,1],"up",MapAt[#-elt[[2]]&,state,1]]],{0,0,0},#]&; diff --git a/day_4/day_4.m b/day_4/day_4.m deleted file mode 100644 index f9f6047..0000000 --- a/day_4/day_4.m +++ /dev/null @@ -1,7 +0,0 @@ -(* ::Package:: *) - -nums=Import[StringJoin[NotebookDirectory[], "/input.txt"],"Table"]; - -part1 = 1##&@@Tr[1##&@@@(#/."up"->-"down")]&; - -part2=1##&@@Rest@Fold[Function[{state,elt},Switch[elt[[1]],"forward",state+{0,elt[[2]],state[[1]] elt[[2]]},"down",MapAt[elt[[2]]+#&,state,1],"up",MapAt[#-elt[[2]]&,state,1]]],{0,0,0},#]&; diff --git a/day_5/day_5.m b/day_5/day_5.m deleted file mode 100644 index f9f6047..0000000 --- a/day_5/day_5.m +++ /dev/null @@ -1,7 +0,0 @@ -(* ::Package:: *) - -nums=Import[StringJoin[NotebookDirectory[], "/input.txt"],"Table"]; - -part1 = 1##&@@Tr[1##&@@@(#/."up"->-"down")]&; - -part2=1##&@@Rest@Fold[Function[{state,elt},Switch[elt[[1]],"forward",state+{0,elt[[2]],state[[1]] elt[[2]]},"down",MapAt[elt[[2]]+#&,state,1],"up",MapAt[#-elt[[2]]&,state,1]]],{0,0,0},#]&;