Як кілька людей, можливо, помітили останнім часом, я значною мірою відмовився від розвитку Braingolf, тому що він нудний і не натхненний, і перейшов на 2Col, що трохи цікавіше, і не призначене для того, щоб бути мовою для гольфу.

Визначальною особливістю 2Col є те, що кожен рядок коду повинен мати рівно 2 символи, виключаючи новий рядок. Це означає, що довжину програми 2Col завжди можна обчислити так, 3n-1де n- кількість рядків у програмі.

Тож ось моє завдання: Давши код 2Col як рядок, виведіть truthy, якщо він є дійсним кодом 2Col (Кожен рядок - це рівно 2 символи і він відповідає 3n-1формулі), а фальси - інакше.

Вхідні дані

Введення слід сприймати як один рядок або масив символів.

Вихідні дані

Значення "truthy", якщо вхідний рядок має правильний макет, а значення фальси - в іншому випадку

Ваш код повинен відповідати тим, які значення truthy / falsey він використовує

Тестові шафи

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


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


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


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

----
falsey
======


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


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


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


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


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

Оцінка балів

Це кодовий гольф, тому виграє найменше байтів!

code-golf string decision-problem

— Скідсдев
джерело

@Shaggy ні, якщо тільки з якихось причин мова, яку ви використовуєте, вважає trueфальсією та falseправдою

— Skidsdev

1

@StephenS Will do

— Skidsdev

@Mayube спасибі, вибач, я забув додати "міг би" перед цим xD

— Стівен

Я пропоную вам додати тестовий приклад: puzzle. Це зробить рішення, які роблять по всій довжині рядка по модулю 3, а потім заперечуються (що працює для всіх поточних тестових випадків) недійсними.

— Товариш SparklePony

@ComradeSparklePony зробить

— Skidsdev

6

Брахілог (2), 4 байти

ṇl₂ᵐ

Спробуйте в Інтернеті!

Повна програма (тому що це проблема рішення ; Брахілог виводить повні програми, false.якщо стався збій у твердженні, true.без жодної).

Пояснення

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

Підписки на lодну з найновіших функцій Брахілога (хоча вона ще старша, ніж виклик), і це хороший виклик для використання.

Хоча ṇlᵛ2і ṇlᵛ²теж би спрацювало.

— Непов’язана струна

3

JavaScript (ES6), 24 28 25 24 байт

Виправлена програма та поголена з трьох байтів завдяки @ PunPun1000

Поголив один байт завдяки @Shaggy

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)));

Розгорніть фрагмент

— Стівен
джерело

Просто дивлячись на це, я не думаю, що він працює для двох тестових випадків (триутюг з лише двома символами і жодним новим рядком, і фальси з нижчим рядком). Однак s=>s.match(/^(..\n)*..$/)слід правильно відповідати обом тим, а також бути коротшим на 25 байт

— PunPun1000,

@ PunPun1000 спасибі, ти маєш рацію.

— Стівен

На жаль, це недійсно, оскільки 2 вихідні значення не відповідають. Однак ви маєте змогу виправити це і зберегти байт, використовуючи testзамість match.

— Кудлатий

@Shaggy спасибі - тому я не бачив цього, коли відповів, тому що це було щойно відредаговано

— Стівен

Я знаю, саме тому я вказав на це;) Можливо, ви захочете оновити нотатку про свої повернені значення.

— Кудлатий

2

Cubix , 20 байт

Повертає 1 для трити і нічого для фальси

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

Кубіфікований

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

ABq забийте весь вхід, переверніть його і натисніть на EOI (-1) до нижньої частини стека
>;; Зайдіть у цикл і вийміть елементи зі стека
? Тест на ЕОІ (-1).
- Якщо знайдено 1uO@натиснути 1 на стек, поверніть на цілий вихід і зупиніть
- В іншому випадку _віддзеркалюйтесь назад, на ?який переспрямовується wзміщення смуги руху
N-!$@;U підсунути подачу лінії (10) на стек, відняти, випробувати результат, пропустити зупинку, якщо помилково, видалити результат і повернути поворот
;;> видаліть канали рядків із стека та перенаправляйте у цикл.

Спробуйте в Інтернеті!

— МікіТ
джерело

2

Пітона, 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

— Лукаш Рогальський
джерело

2

Haskell, 23 52 32 байт

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

Я отримав своє натхнення від деяких інших рішень, розумною хитрістю додавши це "\n".

— Програмна людина
джерело

Я це виправив, але RIP моє коротке рішення.

— Програма людина

1

Желе , 6 байт

ỴL€=2Ṃ

Спробуйте в Інтернеті!

Пояснення:

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

— Товариш SparklePony
джерело

1

Сітківка , 10 байт

^..(¶..)*$

Спробуйте в Інтернеті! Виходи 1або 0відповідно.

— Ніл
джерело

1

JavaScript (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>

Розгорніть фрагмент

— Кудлатий
джерело

There's gotta be a shorter way to do this with RegEx! Так (і моє, мабуть, не оптимально)

— Стівен

1

05AB1E , 6 байт

¶¡D2ùQ

Спробуйте в Інтернеті!

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

— kalsowerus
джерело

1

J-uby , 19 18 байт

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

:=~&робить анонімну функцію, яка приймає xта повертає, 0якщо вона відповідає регексу /^(..\n*)..$/mчи nilіншим чином.

— Кіос
джерело

0

Java (OpenJDK 8) , 25 байт

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

Спробуйте в Інтернеті!

Перевіряє, чи є в рядок введення будь-яка кількість рядків, за якими слід подавати рядок і кінцевий рядок без одного (забезпечує принаймні один рядок)

— PunPun1000
джерело

0

Утиліти Bash + GNU, 13

grep -qv ^..$

Це встановлює значення повернення оболонки (доступне в $?) до 0 для помилкового та 1 для істинного. Це насправді протилежний сенс порівняно зі звичайною умовою оболонки , тому, щоб зробити це право, вам потрібно буде зробити:

Утиліти Bash + GNU, 15

! grep -qv ^..$

— Цифрова травма
джерело

0

Рубін, 22 байти

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

— Кіос
джерело

0

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

— Кудлатий
джерело

Перевірте синтаксис 2Col!

Вхідні дані

Вихідні дані

Тестові шафи

Оцінка балів

Брахілог (2), 4 байти

Пояснення

JavaScript (ES6), 24 28 25 24 байт

Cubix , 20 байт

Пітона, 51

Haskell, 23 52 32 байт

Желе , 6 байт

Сітківка , 10 байт

JavaScript (ES6), 35 24 байт

Спробуй це

05AB1E , 6 байт

J-uby , 19 18 байт

Java (OpenJDK 8) , 25 байт

Утиліти Bash + GNU, 13

Утиліти Bash + GNU, 15

Рубін, 22 байти

Japt , 7 6 байт

Пояснення