최근 몇 사람이 눈치 채 셨을 때, 저는 지루하고 영감을 얻지 못한 Braingolf의 개발을 크게 포기 하고 조금 더 흥미롭고 골프 언어가 아닌 2Col 로 넘어갔습니다 .

2Col의 정의 기능은 줄 바꿈을 제외한 모든 코드 줄의 길이가 정확히 2 자 여야한다는 것입니다. 2Col 프로그램의 길이는 항상 다음과 같이 계산 될 수 있음이 수단 3n-1여기서 n프로그램의 행의 수이다.

따라서 내 도전은 다음과 같습니다 .2Col 코드를 문자열로 지정하면 유효한 2Col 코드 (모든 줄이 정확히 2 자이고 3n-1수식을 준수 함 )이면 사실을 출력하고 그렇지 않으면 거짓입니다.

입력

입력은 단일 문자열 또는 문자 배열로 가져와야합니다.

산출

입력 문자열이 유효한 레이아웃이면 참 값, 그렇지 않으면 거짓 값

코드가 사용하는 진실 / 거짓 값에 일관성이 있어야합니다

테스트 케이스

======
F!
$^
----
truthy
======


======
*8
+1
Sq
----
truthy
======


======
nop
xt
----
falsey
======


======
+1
+1
#^

----
falsey
======


======
<empty string>
----
falsey
======


======
ye
----
truthy
======


======
no<space>
----
falsey
======


======
test
----
falsey
======


======
puzzle
----
falsey
======

채점

이것은 코드 골프 이므로 가장 적은 바이트가 이깁니다!

Brachylog (2), 4 바이트

ṇl₂ᵐ

온라인으로 사용해보십시오!

전체 프로그램 (이것은 의사 결정 문제 이기 때문에 false., 어설 션 오류가 없으면 Brachylog 전체 프로그램이 출력 true.되지 않고 출력 됨 ).

설명

ṇl₂ᵐ
ṇ     Split input into lines
   ᵐ  For each line:
 l₂     Assert that that line has length 2

아래 첨자 l는 Brachylog의 최신 기능 중 하나이지만 (여전히 챌린지보다 오래되었지만)이를 사용하는 것이 좋습니다.

자바 스크립트 (ES6), 24 28 25 24 바이트

@ PunPun1000 덕분에 프로그램 수정 및 3 바이트 면도

@Shaggy 덕분에 1 바이트를 줄였습니다.

s=>/^(..\n)*..$/.test(s)

유효하면 true를, 그렇지 않으면 false를 반환합니다.

f=
s=>/^(..\n)*..$/.test(s)

t=
`22
22
22
22
22`

console.log(f(t));
console.log(f(t.slice(0, -1)));

Cubix , 20 바이트

진실에 대해서는 1을 반환하고 거짓에 대해서는 아무것도 반환하지 않습니다

@1OuABq>;;?w-!$@;U_N

Cubified

    @ 1
    O u
A B q > ; ; ? w
- ! $ @ ; U _ N
    . .
    . .

• ABq 모든 입력 내용을 확인한 후 뒤집어 EOI (-1)을 스택 맨 아래로 밉니다.
• >;; 루프로 들어가서 스택에서 항목을 제거하십시오.
• ? EOI (-1)를 테스트합니다.
  • 발견되면 1uO@1을 스택으로 밀고 정수 출력으로 돌리고 정지합니다.
  • 그렇지 않으면 차선 이동으로 리디렉션되는 방향으로 _다시 반영?w
• N-!$@;U 라인 피드 (10)를 스택으로 밀고, 빼고, 테스트 결과를, 거짓이면 정지를 건너 뛰고, 결과를 제거하고 u- 턴
• ;;> 스택에서 라인 피드를 제거하고 루프로 리디렉션하십시오.

온라인으로 사용해보십시오!

파이썬, 51

lambda s:all(len(l)==2for l in(s+"\n").splitlines())

테스트 케이스 러너 :

tcs = {
    "F!\n$^": 1,
    "*8\n+1\nSq": 1,
    "nop\nxt": 0,
    "+1\n+1\n#^\n": 0,
    "": 0,
    "ye": 1,
    "no ": 0,
    "test": 0,
    "puzzle": 0
}
f = lambda s:all(len(l)==2for l in(s+"\n").splitlines())
for tc, expected in tcs.items():
    assert f(tc) == expected

하스켈, 23 52 32 바이트

all((==2).length).lines.(++"\n")

다른 솔루션에서 영감을 얻었습니다 "\n".

젤리 , 6 바이트

ỴL€=2Ṃ

온라인으로 사용해보십시오!

설명:

ỴL€=2Ṃ
Ỵ       Split at newlines
 L€     Length of each...
   =2   ...equals two.
     Ṃ  Minimum.

망막 , 10 바이트

^..(¶..)*$

온라인으로 사용해보십시오! 출력 1또는 0적절합니다.

자바 스크립트 (ES6), 35 24 바이트

s=>!/^.?$|.../gm.test(s)

시도 해봐

f=
s=>!/^.?$|.../gm.test(s)
oninput=_=>o.innerText=f(i.value)
o.innerText=f(i.value=`F!
$^`)

<textarea id=i></textarea><pre id=o>

05AB1E , 6 바이트

¶¡D2ùQ

온라인으로 사용해보십시오!

¶¡D2ùQ   Argument s
¶¡       Split s on newlines
  D      Duplicate
   2ù    Keep only elements of length 2
     Q   Compare

J-uby , 19 18 바이트

:=~&/^(..\n*)..$/m

:=~&정규 표현식과 일치 하거나 그렇지 않으면 익명 함수를 가져 와서 x반환 0합니다 ./^(..\n*)..$/mnil

자바 (OpenJDK 8) , 25 바이트

s->s.matches("(..\n)*..")

온라인으로 사용해보십시오!

입력 문자열에 줄 수와 줄 바꿈 및 줄이없는 마지막 줄이 있는지 확인합니다 (한 줄 이상 보장).

배쉬 + GNU 유틸리티, 13

grep -qv ^..$

쉘 리턴 값 (에서 액세스 가능 $?)을 false로 0으로 설정하고 true로 1로 설정합니다. 이것은 실제로 일반적인 쉘 규칙에 비해 반대의 의미입니다. 이므로 올바른 작업을 수행하려면 다음을 수행하십시오.

배쉬 + GNU 유틸리티, 15

! grep -qv ^..$

루비, 22 바이트

->s{s=~/^(..\n*)..$/m}

Japt , 7 6 바이트

·eÈʶ2

온라인으로 사용해보십시오

설명

     :Implicit input of string "U"
·    :Split to array on newline
eÈ   :Maps over the array, checking that every item's ...
Ê    :length ...
¶2   :Equals 2
     :Implicit output of result