( 이 도전에서 영감을 얻었습니다 .)

string이 있다고 가정 해 봅시다 ABBCBA. 우리는 사이 상승이 있음을 말할 수 A와 B를 들어, B다음과 A; 우리는 사이에 실행이 있다고 말할 수 B와 B아무것도 변경; 그리고 마지막으로 우리는 사이에 가을이 말할 수 C와는 B. 다음과 같이 그래프를 그릴 수 있습니다.

             A   B   B   C   B   A
Rising:        o       o
Continuing:        o
Falling:                   o   o

레이블이없고 공백을 최소화합니다.

o o
 o
   oo

이것은 입력에 대한 예상 출력입니다 ABBCBA.

공백이 아닌 문자를 사용 o하여 출력 을 바꿀 수 있습니다 . 또한 각 열은 선택적으로 다음과 같이 여분의 공간을 가질 수 있습니다.

o   o
  o
      o o

입력은 3 자 이상으로 구성됩니다. 문자열은 모두 대문자로 구성되지만 대신 소문자를 사용할 수 있습니다.

테스트 사례

TEST CASE
LINE 1
LINE 2
LINE 3

HELLOWORLD
 o oo o
  o
o    o oo

TESTCASE
 oo  o

o  oo o

EXAMINATION
o o o o o

 o o o o o

ZSILENTYOUTH
  o ooo o

oo o   o oo

ABC
oo



ABCBA
oo

  oo

답변

OIṠ“ o ”ṙZY

OIṠ“ o ”ṙZY  Main link. Argument: s (string)

O            Ordinal; replace all characters with their code points.
 I           Increments; compute the differences of consecutive code points.
  Ṡ          Sign function.
   “ o ”ṙ    Rotate that string -1, 0, or 1 unit(s) to the left.
         Z   Zip; transpose rows and columns.
          Y  Join, separating by linefeeds.

Row[Column@Insert[{,},0,2-#]&/@Sign@Differences@LetterNumber@#]&

LetterNumber@#

Sign@Differences@

Insert[{,},0,2-#]&

Row[Column@ ... ]

ListPlot@*Sign@*Differences@*LetterNumber

dZSqtQtQv~79*c

-1  1  0  1  1 -1  1 -1 -1

-2  0 -1  0  0 -2  0 -2 -2

-2  0 -1  0  0 -2  0 -2 -2
-1  1  0  1  1 -1  1 -1 -1
0   2  1  2  2  0  2  0  0

f w=[do(e,y)<-zip w$tail w;max" "['o'|b e y]|b<-[(<),(==),(>)]]

l2ew{:-g)S3*0t}%zN*

l      e# Read input.
2ew    e# Get all pairs of consecutive letters.
{      e# Map this block over the pairs...
  :-   e#   Compute the difference between the two letters.
  g    e#   Signum. Gives -1 for rises, 1 for falls, 0 otherwise.
  )    e#   Increment. Gives 0 for rises, 2 for falls, 1 otherwise. Call this i.
  S3*  e#   Push a string with three spaces.
  0t   e#   Replace the i'th space (zero-based) with a zero.
}%
z      e# Transpose.
N*     e# Join with linefeeds.

lambda s:[''.join(' o'[cmp(*x)==n]for x in zip(s,s[1:]))for n in-1,0,1]

let f =

s=>[1,0,-1].map(k=>s.replace(/./g,(c,i)=>i--?(c>s[i])-(c<s[i])-k&&' ':'')).join`
`

console.log(f("HELLOWORLD"));
console.log(f("EXAMINATION"));