[퀴즈_134] 날짜를 도트형식으로 출력하기

파워쿼리로 만들어 봅니다.

=LET(DT, C3, NM, "0123456789-",
DG, "■■■■■■　　　■■■■■■　　　　　　　　　　　　　　　■■■■■　　　　　■　■■■■　■　■■■■　■　　　　　■　■　■■　■　■■■■■■　　　　　■■■　　　　■　　■■■■■　　　　　■■■　■■　■　■■　■■■　　　　　■■■■■■　■　■■　■■■　　　　　■　　　　■　　　　■■■■■　　　　　■■■■■■　■　■■■■■■　　　　　■■■　■■　■　■■■■■■　　　　　　　■　　　　■　　　　■　　　　　　　",
LA, MATCH(MID(TEXT(DT,"YYYY-MM-DD"),SEQUENCE(10),1),MID(NM,SEQUENCE(11),1),0),
fX, LAMBDA(x, WRAPCOLS(MID(MID(DG,(x-1)*20+1,20),SEQUENCE(20),1),5,0)),
DROP(DROP(REDUCE("",LA, LAMBDA(t,v, HSTACK(t, fX(v)))),,1),,-1))

띄어쓰기용 1열을 포함하여 총 20개의 셀로 숫자를 표시
TOCOL(숫자별표시범위,0,1)로 0~9와 '-'를 이어 붙이기 -> DG

날짜의 각 자릿수를 "0123456789-"의 위치에 맞게 DG에서 20개씩 끊어서 하나씩 분리하여 WrapCols로 배열을 만들고 Hstack으로 옆으로 붙여서,  시작과 끝열을 제거

=LET(Tday,C3,
pattern,{"0","   ";"L","■  ";"R","  ■";"2","■ ■";"3","■■■"},
numpat,{"0","32223";"1","RRRRR";"2","3R3L3";"3","3R3R3";"4","223RR";"5","3L3R3";"6","3L323";"7","3RRRR";"8","32323";"9","323R3";"-","00300"},
fx, LAMBDA(ch, WRAPROWS(MID(CONCAT(VLOOKUP(MID(VLOOKUP(ch&"",numpat,2,0),SEQUENCE(5),1), pattern,2,0)),SEQUENCE(,15),1),3)),
DROP(REDUCE("", MID(TEXT(Tday,"yyyy-mm-dd"),SEQUENCE(,10),1), LAMBDA(a,b, HSTACK(a,{"";"";"";"";""},fx(b)))),,2)
)

​

​

이건 0-9와 "-"를 각 행별로 1과0으로 조합한 다음 Hex2Bin으로 DG를 구성하고,
날짜를 0과 1의 배열로 만든 다음에 Choose를 이용해서 1을 "■"으로 대체합니다.

=LET(D, TEXT(C3,"YYYY-MM-DD"), NM, VSTACK(SEQUENCE(10)-1&"","-"),
DG, "7555711111717477171755711747177475771111757577571700700",
BI, MID(DG, (MATCH(MID(D,SEQUENCE(10),1), NM,0)-1)*5+1,5),
fX, LAMBDA(x, WRAPROWS(MID(CONCAT(BYROW(MID(x,SEQUENCE(5),1), LAMBDA(r, HEX2BIN(r,3)))), SEQUENCE(15),1),3)),
CHOOSE(DROP(DROP(REDUCE("", BI, LAMBDA(t,v, HSTACK(t,fX(v),TEXTSPLIT("0,0,0,0,0",,",")))),,1),,-1)+1,"","■"))

천재님들이 많이 계시네요..ㅜ 부러워요