다이아몬드

지침

다이아몬드 카타는 문자 하나를 입력으로 받아 다이아몬드 모양으로 출력해요. 문자를 하나 주면 'A'로 시작하고, 주어진 문자가 가장 넓은 지점에 오는 다이아몬드를 출력해요.

요구 사항

• 첫 번째 줄에는 'A'가 하나 들어 있어요.
• 마지막 줄에도 'A'가 하나 들어 있어요.
• 첫 번째와 마지막 줄을 제외한 모든 줄에는 똑같은 문자가 정확히 두 개씩 있어요.
• 모든 줄은 앞에 오는 공백의 개수와 뒤에 오는 공백의 개수가 같아요. (0개일 수도 있어요.)
• 다이아몬드는 좌우 대칭이에요.
• 다이아몬드는 상하 대칭이에요.
• 다이아몬드는 정사각형 모양이에요. (너비와 높이가 같아요.)
• 문자들이 다이아몬드 모양을 이뤄요.
• 위쪽 절반의 문자는 오름차순으로 놓여요.
• 아래쪽 절반의 문자는 내림차순으로 놓여요.
• 공백으로 채워진 네 모서리는 삼각형이에요.

예시

다음 예시에서 공백은 · 문자로 표시했어요.

'A'에 대한 다이아몬드:

A

'C'에 대한 다이아몬드:

··A··
·B·B·
C···C
·B·B·
··A··

'E'에 대한 다이아몬드:

····A····
···B·B···
··C···C··
·D·····D·
E·······E
·D·····D·
··C···C··
···B·B···
····A····

힌트

diamond 함수를 구현해야 해요. 이 함수는 A에서 시작하고, 가장 넓은 지점에 주어진 문자가 오는 다이아몬드를 출력해요. 타입이 확실하지 않다면 제공된 시그니처를 사용해도 되지만, 그것 때문에 창의성을 제한하지는 마세요:

diamond :: Char -> Maybe [String]

이 연습 문제는 텍스트 데이터를 다뤄요. 역사적인 이유로 Haskell의 String 타입은 문자들의 리스트인 [Char]와 같은 의미예요. 텍스트 데이터를 더 효율적으로 다루려면 Text 타입을 사용할 수 있어요.

이 연습 문제의 선택적 확장으로, 다음을 해볼 수 있어요.

• Haskell의 문자열 타입에 대해 읽어봐요.
• package.yaml의 의존성 목록에 - text를 추가해요.
• 다음 방식으로 Data.Text를 임포트해요:

import qualified Data.Text as T
import           Data.Text (Text)

• 이제 예를 들어 diamond :: Char -> Maybe [Text]처럼 작성하고, Data.Text의 함수를 T.pack처럼 참조할 수 있어요,
• Data.Text 문서를 찾아봐요,
• 그런 다음 Diamond.hs에서 String이 나오는 곳을 모두 Text로 바꾸면 돼요:

diamond :: Char -> Maybe [Text]

이 부분은 전적으로 선택 사항이에요.

---

출처

Seb Rose