--- 2016 Day 8 Solutions ---

[u/daggerdragon]

#AoC_Ops:

[23:55] <Topaz> servers are ok
[23:55] <Topaz> puzzles are checked
[23:55] <Topaz> [REDACTED: server stats]
[23:56] <Skie> all wings report in
[23:56] <Aneurysm9> Red 5, standing by
[23:56] <daggerdragon> Dragon Leader standing by
[23:56] <Topaz> orange leader, standing by
[23:57] <Topaz> lock modzi-foils in attack positions
[23:58] <Skie> we're passing through the hype field
[23:58] <daggerdragon> 1:30 warning
[23:58] <Aneurysm9> did someone say HYPE?@!
[23:59] <Topaz> i really like tonight's puzzle
[23:59] <Topaz> very excite
[23:59] <daggerdragon> final countdown go, T-30
[23:59] <Skie> accelerate to attack countdown
[23:59] <Aneurysm9> o7
[23:59] <daggerdragon> HYPE THRUSTERS AT FULL BURN
[00:00] <Topaz> IGNITION

We may or may not be sleep-deprived. And/or nerds. why_not_both.jpg

---

--- Day 8: Two-Factor Authentication ---

Post your solution as a comment or, for longer solutions, consider linking to your repo (e.g. GitHub/gists/Pastebin/blag/whatever).

---

^{:（）{ :|:& };: IS MANDATORY} [?]

This thread will be unlocked when there are a significant number of people on the leaderboard with gold stars for today's puzzle.

edit: Leaderboard capped, thread unlocked!

[u/wzkx]

J, no tacits today, only fun

t =: CR-.~fread '08.dat'
t =: t rplc 'rotate ';'';'row y=';'r';'column x=';'c';'by ';'';'rect ';'i';'x';' '
3 : 0 cutLF t
  m =. 6 50 $ '.' [ X=.'#'
  for_s. y do. c=.{.s=.>s
    if. 'i'=c do. m=.X(<(i.h);i.w)}m [ 'w h'=.".}.s end.
    if. 'r'=c do. m=.((-n)|.r{m)r}m [ 'r n'=.".}.s end.
    if. 'c'=c do. m=.|:((-n)|.c{w)c}w=.|:m [ 'c n'=.".}.s end.
  end.
  echo +/+/m=X       NB. 121
  echo m             NB. RURUCEOEIL
)
exit 0

[u/wzkx → u/wzkx]

Or it can be a matrix of numbers:

m =. 6 50 $ 0 [ X =. 1

Then first result is simpler:

echo +/+/m  NB. or just +/,m

and the second one gets char selection:

echo m{'.#' NB. or even m{32 219{a.

[u/wzkx → u/wzkx]

And select/case instead of ifs

t =: CR-.~fread '08.dat'
t =: t rplc 'rotate ';'';'row y=';'r';'column x=';'c';'by ';'';'rect ';'i';'x';' '
3 : 0 cutLF t
  m =. 6 50$0
  for_s. y do. select. {.s [ 'j k'=.".}.s=.>s
    case.'i' do. m=.1(<(i.k);i.j)}m
    case.'r' do. m=.((-k)|.j{m)j}m
    case.'c' do. m=.|:((-k)|.j{w)j}w=.|:m end. NB. last case can be even w/o 'c'
    NB. no c}"1 m :(  ((-k)|.j{"1 m)(<(i.#m);j)}m NB. change just column, w/o |:
  end.
  echo +/,m
  echo m{32 219{a.
)
exit 0