당신은 입력으로 정수를 취하고 그 숫자가 look and say sequence 중 첫 번째를 출력하는 프로그램을 만들고 있습니다 .
예를 들면 다음과 같습니다.
$ ./LAS
8
[1,11,21,1211,111221,312211,13112221,1113213211]
사용자가 다른 수의 시퀀스를 명확하게 볼 수 있다면 목록을 출력하는 정확한 방법은 중요하지 않습니다. 그래도 캐치가 있습니다. 어떤 종류의 사용자 정의 변수도 사용할 수 없습니다.
예를 들면 다음과 같습니다.
- 범위가 지정된 변수를 포함하여 변수가 없습니다.
- 기능이 있으면 이름을 가질 수 없습니다. (예를 들어, 언어에 주요 기능이 필요하거나 그와 유사한 기능이 필요한 경우 해당 기능이있을 수 있습니다.)
- 함수가 있으면 명명 된 인수를 가질 수 없습니다.
또한 모양과 말 순서와 관련된 특정 기능이있는 라이브러리를 사용할 수 없으며 네트워크에 액세스하거나 프로그램에 파일을 제공 할 수 없습니다 (자체 생성하여 사용할 수는 있지만). 이것은 골프입니다. 문자가 가장 짧은 코드가 승리합니다!
답변
GolfScript (31 자)
~[]\{[1\{.2$={;\)}1if\}*].n@}*;
이전 답변과 대답에 대한 제 답변에서 발췌했습니다 . 이것은 기능 언어에 대한 덜 엄격한 제한을 가지고있어 5자를 절약 할 수 있지만 이전 질문에 대한 대부분의 답변을 조정할 수 없기 때문에 (비 기능 언어에 대한 미친듯한 제한입니다) 나는 의미가 없다고 생각합니다 속임수로 닫습니다.
답변
하스켈 206 문자
import Data.List
import Control.Applicative
import Data.Function
main= readLn >>= print .(flip take (map read $ fix (("1":). map (concat .(map ((++)<$>(show . length)<*>((:[]). head))). group))::[Integer]))
그룹 기능을 사용하여 동일한 그룹으로 그룹화하여 작동합니다. 그런 다음 함수와 함께 응용 프로그램을 사용하여 길이를 동시에 읽고 요소 하나에 추가하는 함수를 작성합니다. 그것은 수정과 맵을 사용하여 재귀 적 정의를 작성합니다 (포인트 없음).
답변
J (42 자)
J에서는 자연스럽게 포인트 프리 (속어라고도 함) 프로그래밍이 자연 스럽습니다.
,@:((#,{.);.1~(1,}.~:}:))&.>^:(<`((<1)"_))
그것은 함수이며, 그것을 사용하기 위해 코드, 공백 및 입력 번호를 작성합니다. 예를 들어
,@:((#,{.);.1~(1,}.~:}:))&.>^:(<`((<1)"_)) 8
┌─┬───┬───┬───────┬───────────┬───────────┬───────────────┬───────────────────┐
│1│1 1│2 1│1 2 1 1│1 1 1 2 2 1│3 1 2 2 1 1│1 3 1 1 2 2 2 1│1 1 1 3 2 1 3 2 1 1│
└─┴───┴───┴───────┴───────────┴───────────┴───────────────┴───────────────────┘
출력에서 예쁜 상자를 확인하십시오.
부록 : 여기에 처음에는 사용하기에 너무 부끄러운 몇 가지 “속임수”가 있습니다.
-
다음은 다른 “통화 규칙”을 사용하는 36 자 버전입니다. 8을 원하는 단어 수로 바꿉니다.
,@:((#,{.);.1~(1,}.~:}:))&.>^:(<8)<1 -
출력에 여분의 0이 있으면 괜찮은 32 문자 버전입니다.
,@:((#,{.);.1~(1,}.~:}:))^:(<8)1
답변
GolfScript, 36 자
~([1]\{.[0\{.2$=!{0\.}*;\)\}/](;}*]`
변수는 GolfScript에서 거의 사용되지 않으며이 작업에는 반드시 필요하지 않습니다. 입력이 stdin에 있고 stdout으로 출력됩니다. 예를 들어, 입력 8은 출력을 제공합니다.
[[1] [1 1] [2 1] [1 2 1 1] [1 1 1 2 2 1] [3 1 2 2 1 1] [1 3 1 1 2 2 2 1] [1 1 1 3 2 1 3 2 1 1]]
나중에이 코드에 대한 자세한 설명을 쓸 수는 있지만 최소한 변수 할당 연산자가 포함되어 있지 않으므로 변수를 사용하지 않는다는 것을 쉽게 알 수 있습니다 :.
답변
Haskell, 118 자 (수입없이 80)
import Data.List
import Control.Monad
main=readLn>>=print.flip take(iterate(ap((++).show.length)(take 1)<=<group)"1")
답변
배쉬 및 코어 유틸리티, 111 73 자
eval echo 1\|`yes 'tee -a o|fold -1|uniq -c|(tr -dc 0-9;echo)|'|sed $1q`:
uniq -c시퀀스에서 다음 숫자를 생성하기 위해 많은 노력을 기울이고 있습니다. yes, sed및 eval프로세싱 파이프 라인의 반복의 필요한 수를 생성한다. 나머지는 단지 포맷입니다.
출력은이라는 파일에 배치 o됩니다.
$ ./looksay.sh 8 우분투 @ 우분투 : ~ $ cat o 1 11 21 1211 111221 312211 13112221 1113213211 $
답변
매스 매 티카, 65 문자
FromDigits/@NestList[Flatten@Reverse[Tally/@Split@#,3]&,{1},#-1]&
예:
FromDigits/@NestList[Flatten@Reverse[Tally/@Split@#,3]&,{1},#-1]&[8]
{1, 11, 21, 1211, 111221, 312211, 13112221, 1113213211}