У заголовку все сказано. Ваша мета - написати програму, яка утворює прямокутник символів aw × h, який можна повертати та повторно запускати для виведення кількості обертів на 90 ° проти годинникової стрілки (CCW).

Наприклад, якщо програма 3 × 2

abc
def

вирішив проблему, вона спочатку дала б 0 і послідовні обертання на 90 ° CCW

cf    fed    da
be    cba    eb
ad           fc

буде виводити 1, 2 і 3 відповідно.

Використання коментарів робить це тривіальним завданням більшості мов. Наприклад, у Ruby це можна зробити у прямокутнику 7 × 7:

###p###
### ###
###1###
p 0#2 p
###3###
### ###
###p###

Завдання полягає в тому, щоб зробити це без будь-яких коментарів.

Оцінка балів

Ваш бал - w * h, площа вашого прямокутника. Нові рядки виключені. Іншими словами, код-гольф, нові рядки не враховуються.

Оцінка за прикладом Ruby - 49 (хоча, звичайно, вона недійсна, оскільки має коментарі).

Примітки

• Ваш код повинен бути справді прямокутним, без відсутніх символів у кінці рядків.
• Якщо ви хочете, ви можете вивести інші законні значення "mod 90 °" замість 0 1 2 3. Тож 8 добре замість 0, а -1 - замість 3 тощо.
• Вихід може перейти на консоль або у файл.
• Застосовуються стандартні лазівки.

Я сподіваюся, що це моє перше запитання справді заінтригує деяких людей. Насолоджуйтесь!

APL (1x3 = 3)

5!3

У цьому рішенні використовується додаткове правило про те, що будь-який вихід, правильний mod 4, працює.

У APL x!y- це кількість способів вибору xелементів y, загальновідомих як binom(y,x)або choose(y,x). Перевіримо, чи кожне обертання дає правильну відповідь.

0 обертів

5!3

Немає способу вибрати 5 елементів з 3, тому ми отримуємо 0, який автоматично друкується.

1 обертання CCW

3
!
5

APL із задоволенням оцінює кожен рядок, отримуючи номер 3, оператор !, а потім номер 5, друкуючи лише останній з них ( 5), який становить 1 мод 4.

2 обертання CCW

3!5

Це binom(5,3), що є (5*4*3*2*1)/(3*2*1)/(2*1) = 10, що є 2 мод 4.

3 обертання CCW

5
!
3

Як і раніше, 3принтер має лише останнє оцінене значення .

Я фактично не знаю APL, тому, будь ласка, скажіть мені, чи я зрозумів неправильне пояснення. Я виявив це шляхом спроб та помилок як першої мови на цьому сайті, яка:

1. Автоматично друкує результат вираження
2. Враховуючи кілька рядків виразів, виводиться лише останній
3. Не має жодних проблем з оператором, який стоїть один на лінії
4. Бере інфікс операторів
5. Має односимвольний арифметичний двійковий оператор, який є несиметричним (aRb! = BRa) і досить гнучким, щоб повертати різноманітні числа.

Для (5) я знизив список діадичних функцій APL . Моєю першою операцією кандидата було ціле ділення /C і Python 2, але поділ APL ÷дає поплавці. Зведення заманливо, але зазнає невдачі , тому aі a^bмають однакову парність , але отримали послідовними поворотами (якщо b=0, але потім b^a=0). Булові оператори люблять <давати 0і 1180 градусів один від одного, що не працює. Нарешті, я знайшов біноміальний оператор !і спробував числа, поки не отримав деякі, які працюють.

Завдяки Quincunx за його впевненість, що існує менше рішення, ніж 2x2.

Рубі, 7 × 9 (63)

 30;p  
0||p=p 
0|0;p;p
;p;p|p;
p=p ||0
;p   p;
2||p =p
 00;1  
     p 

Трохи довше, ніж інше рішення, але принаймні це рішення не залежить від будь-якої неявної друку чи зловживання правилами. Для всіх чотирьох обертів проаналізовано повний код та, крім деяких коротких замикань, усі вони виконуються. Дивно, але в коді абсолютно немає симетрії

Це рішення покладається на те, що pфункцію (яка використовується для друку чисел) все ще можна викликати, навіть якщо змінна з тим самим іменем вже була визначена. Наприклад, щось на зразок p pвикликає функцію pзі змінною pяк аргумент (таким чином, друкуючи значення p).

Пояснення деяких поширених виразів, що використовуються в коді:

• p: Як було сказано вище, це або виклик функції, або змінна. Коли змінна не визначена, вона викликає функцію pбез аргументів, яка нічого не робить і повертає nil.
• p p: Друкує змінну p.
• p|x: Коли pфункція, це ідентично nil|x, що повертає значення true / false залежно від значення x. Якщо pце ціле число, це порозрядне число або. Так чи інакше, це твердження не має побічних ефектів.
• p=p||x: Ефективно те саме, що p||=x(умовне призначення) з перевагою того, що вони є синтаксично дійсними та відсутністю опції, коли повертаються назад.

Симетрична версія (9 × 10 = 90)

    p    

  0 * 0  
  00100  
  0||2* p
p *0||0  
  00300  
  0 * 0  

    p    

Це найкоротше симетричне рішення (C ₂ при ігноруванні цифр для друку), які я міг би придумати.

Тестовий сценарій

Ось тестовий скрипт для перевірки коду вище ( #в кінці рядка додано, щоб пробіл не знімався та видалявся перед виконанням):

rotate=->s{s.split($/).map{|i|i.chars.reverse}.transpose.map(&:join).join($/)}

s=<<EOD.gsub(?#,"")
 30;p  #
0||p=p #
0|0;p;p#
;p;p|p;#
p=p ||0#
;p   p;#
2||p =p#
 00;1  #
     p #
EOD


puts ">>> 0°"
eval s
puts ">>> 90°"
eval rotate[s]
puts ">>> 180°"
eval rotate[rotate[s]]
puts ">>> 270°"
eval rotate[rotate[rotate[s]]]

GolfScript, 4 (2x2)

43
12

Друкує, 4312який є 0(мод 4). Ротація друку 3241(1 мод 4), 2134(2 мод 4) та 1423(3 мод 4).

Запропоновано:

Якщо ви хочете, ви можете вивести інші законні значення "mod 90 °" замість 0 1 2 3. Тож 8 добре замість 0, а -1 - замість 3 тощо.

Насправді існує безліч наборів чисел, для яких це працює. Я знайшов їх за допомогою цієї програми Python:

def f(a,b,c,d):
    return int("%i%i%i%i"%(a,b,c,d))
for a in range(10):
    for b in range(10):
        for c in range(10):
            for d in range(10):
                candidate = f(a,b,c,d) % 4 == 0
                candidate &= f(b,d,a,c) % 4 == 1
                candidate &= f(d,c,b,a) % 4 == 2
                candidate &= f(c,a,d,b) % 4 == 3
                if candidate:
                    print("%i, %i, %i, %i"%(a,b,c,d))

Хоча програма виводить 0s (що, мабуть, не працювало б), чинні рішення мають форму

ab
cd

Де a∈{4,8}, b∈{3,7}, c∈{1,5,9}, d∈{2,6}. IE , (a,b,c,d)∈{4,8}×{3,7}×{1,5,9}×{2,6}який є 24 рішення.

Пітон - 23 х 23 = 529

Гаразд, це питання вже є переможцем, але поки немає рішення Python. Тому я подумав про це - сильно! - і знайшов спосіб змусити об'ємну printкоманду працювати в будь-якому напрямку, не створюючи помилок під час розбору одного з інших напрямків.

Проривом був наступний рядок:

'"\'';forward_code;"';backward_code;""\'"''

Поки forward_codeвиконується, backward_codeчастина є частиною рядка і, таким чином, не друкується. Це точно навпаки, коли читаєш назад.

Тож у поєднанні з ще двома напрямками та налагодженими, щоб усі цитати правильно відповідали, я закінчую наступним рішенням:

''"''""''"''"''"'"''""'
"  ""                 "
"  \\                 "
'"\'';print 1;"'""\'"''
'"\''"';3 tnirp;""\'"''
"  ;""                "
"  p'                 "
'  r;                 '
'  i2                 '
"  n                  "
"  tt                 "
'   n                 '
'  4i                 '
"  ;r     .-=<>=-.    "
' \"p    /__----__\   '
"  ';'  |/ (')(') \|  "
"  ""    \   __   /   "
'  ""    .`--__--`.   '
"  \\   /    :|    \  "
'  ''  (_)   :|   (_) '
'  ""    |___:|____|  '
"  ''    |_________|  "
''"''""''"''"''"'"''""'

Редагувати: я знайшов спосіб розібратися з усім цим пробілом. ;)

ОСНОВНІ, 64

Не виграє, але тут все одно. (Випробувано в бурундуку Basic )

?0:END:?
:::::::1
D:::::::
N::::::E
E::::::N
:::::::D
3:::::::
?:DNE:2?

Примітка: ?це скорочення для PRINTрізних діалектів BASIC. Хоча в коді є багато синтаксичних помилок, ENDвисловлювання в першому рядку не дозволяє їх бачити інтерпретатор.

Pyth , 9 символів (3x3)

0 1

3 2

У pyth все друкується за замовчуванням, якщо йому не передує пробіл. Рядки після першого рядка призначені для введення користувачем і не оцінюються в цій програмі.

Ще один спосіб отримати 9 символів:

"0"
3 1
"2"

Pyth 1.0.5 , 4 символи

Незважаючи на те, що останні зміни в pyth зробили складніші двозначні числа (Зміна, яку я вважаю поверненням), у старих версіях Pyth є легке двоцифрове генерування чисел, що в поєднанні з неявним друком і тим, що всі рядки, окрім першого ігноруються, дає таке рішення:

32
41

Відбитки 32,21,14,43.

Befunge, 16

0.@1
@@@.
.@@@
3@.2

Пояснення: Цифри від, 0щоб 9натиснути відповідне число на стек, .виводить значення зі стека і друкує його як ціле число, і @закінчує програму.

(перевірено тут )

Піт, 49

Я вирішив лише використовувати жовтий і червоний кольори, а також спробувати зробити його приблизно симетричним. При обертанні він друкує 0, 1, 2 або 3. Вихід з програми в Piet важкий і займає близько половини місця на знімку, на жаль.

GNU DC , 6 (3x2)

Я думаю, що це найкоротша відповідь, щоб не вимагати "мод 90 °" правила релаксації:

3z1
0p2

Виходи 0, 1, 2або 3для кожного обертання.

Для 0, 2і 3обертань pпросто вискакує і друкує номер останнього літерал були витіснені в стек. Для 1обертання zпідштовхує поточну глибину (1) до потоку, потім pспливає і друкує її.

GolfScript, 9 (3x3)

0}1
} }
3}2

Різновид зловживання правилами. Програма }закінчується, якщо немає відповідності {, а вміст стеку друкується в кінці програми.

JavaScript, 4

03
12

Коли ви виконуєте цю програму (або обертання цієї програми) в консолі javaScript, в консолі оцінюється лише останній рядок і лунає в ньому.

Тому:

12 modulo 4 == 0
01 modulo 4 == 1
30 modulo 4 == 2
23 modulo 4 == 3

Ось всі схожі програми 2x2, які також працюють:

03
12

03
16

03
52

03
56

03
92

03
96

07
12

07
16

07
52

07
56

07
92

07
96

43
12

43
16

43
52

43
56

43
92

43
96

47
12

47
16

47
52

47
56

47
92

47
96

83
12

83
16

83
52

83
56

83
92

83
96

87
12

87
16

87
52

87
56

87
92

87
96

Іншими словами,

ab
cd

де a - в [0,4,8], b - в [3,7], c - в [1,5,9], d - в [2,6]

CJam / GolfScript - 3 * 3

2;3
;7;
1;0

Точка з комою відображається попереднім номером, тому друкується лише нижній правий кут.

Ахей , 8

바몽희뷸
뷷희몽반

Оскільки в Aheui немає листа, яке натискає 1 на стек, я вирішив надрукувати 0, 5, 2 і 3.

Пояснення: 바 і 반 натискають 0 і 2 відповідно на стек і переміщують курсор праворуч на один символ. 뷸 і 뷷 натисніть відповідно 5 і 3 на стек і перемістіть курсор вниз двома символами. 몽 вискакує та роздруковує число в стеку і переміщує курсор на один символ. 희 припиняє програму.

JavaScript

(Вводиться в консоль браузера, оболонку або інший REPL, тому результат друкується)

1+2
-3-
4+5

Має працювати на будь-якій іншій мові з виразами, несуттєвими новинками рядків та автоматичним друком результату.

Матлаб / Октав - 144 100

Гольф: 10 х 10 = 100

....d.....
....i.....
....s.....
... p2 ...
disp  1...
...3  psid
... 4p ...
.....s....
.....i....
.....d....

Альтернативне рішення: 15 х 15 = 225

.......d.......
.......i.......
.......s.......
...    p    ...
...         ...
...    4    ...
...    .    ...
disp 1...3 psid
...    .    ...
...    2    ...
...         ...
...    p    ...
.......s.......
.......i.......
.......d.......

Perl 5x7 (35)

1+p+t+1
-print+
1+i+i+1
+tnirp+
1+t+p+1

Трохи запізнюємось на вечірку. Самотній -визначає, яке число друкується.

JavaScript, 3

2
1
4

Це працює ... в базі 7.

Версія бази 9:

2
7
0

Пояснення

При інтерактивному запуску, наприклад, з консолі налагодження, буде виведено значення останнього оператора / виразу.

4 ₇ = 4 ₁₀ ≣ 0 (mod 4 )
412 ₇ = 205 ₁₀ ≣ 1 (mod 4 )
2 ₇ = 2 ₁₀ ≣ 2 (mod 4 )
214 ₇ = 109 ₁₀ ≣ 3 (mod 4 )

Подібні рішення можна знайти для будь-якої дивної бази.

Befunge, 12 (6x2)

Мені вдалося придумати невелике поліпшення існуючої відповіді Befunge, використавши максимальну можливість двовимірного характеру Befunge і провівши кодовий шлях вертикально у двох напрямках.

0.@.1v
v3.@.2

Спробуйте в Інтернеті: починаючи з 0 , обертання 1 , обертання 2 , обертання 3 .

Марбелус, 7 * 14 = 98

.. \/ \/ .. ..
.. 31 \\ 32 \/
\/ \\ \/ \\ \/
\/ 30 \\ 33 ..
.. .. \/ \/ ..

Argh! / Aargh! (4 * 4 = 16)

Що стосувалося використання правильного інструменту для роботи? Немає коментарів (мовою загалом).

Все сімейство програм (генерується в J: ((|.@:|:) ^: (i. 4)) >'hpqh';'q01p';'p32q';'hqph'або ((|.@:|:) ^: (i. 4)) 4 4 $ 'hpqhq01pp32qhqph')

hpqh
q01p
p32q
hqph

повертається один раз:

hpqh
q12p
p03q
hqph

обертається двічі:

hpqh
q23p
p10q
hqph

тричі обертається:

hpqh
q30p
p21q
hqph

Щоб пояснити це, можливо, найкраще подивитися "відрізну" версію (Це також працює у всіх обертаннях):

hhpq h
  0  h
q   1p
p3   q
h  2  
h qphh

Ця версія показує, що програма складається з 4 окремих частин, по одній для кожного окремого обертання.

• h - встановити контрольний потік зліва

• p - надрукувати елемент в растрі даних / коду під ним

• q - вийти з програми

Поплавник - 9 × 5 = 45

Друкує 4, 1, 2 або 3 для консолі.

Зауважте, що "Чорний" є дійсною інструкцією (NOP) і є синтаксичним. Без нього він не може знайти вихідну позицію. Таким чином, всі позиції в прямокутнику зайняті.

Елемент, 2х3 = 6

1*
`2
3 

Це вдосконалення в порівнянні з наївним рішенням 3х3, яке має `середину з цифрою на кожній стороні. Випадок 0, показаний вище, є найцікавішим, оскільки *використовується для множення 3 на нічого, щоб отримати 0. Крім того, це не так складно.

Якщо ви вважаєте простір незручним, ви можете замінити його майже будь-яким іншим символом, виключаючи []{}`_.

Для довідки, ось три інших обертання:

case 1
*2 
1`3

case 2
 3
2`
*1

case 3
3`1
 2*

Чіп, (2х5) 10

b~
+a
~t
e*
 f

*активує всі елементи сусіда: північ, схід, південь і захід (джерело),
~якщо не активовано із заходу, активує східний сусід (NOT-ворота) (тут ніколи не активується)
tзавершує виконання після друку поточного байта
aвстановлює біт наборів 0x01виводу
bбіт 0x02виводу
eвстановлює біт 0x10виводу
fвстановлює біт 0x20виводу,
+якщо його активує будь-який сусід, активує всі інші сусіди (провід)

Для чіпу потрібен або -wпрапор (щоб дозволити виконання без введення), або деякий вхід для запуску.

Відбитки 0, 1, 2або 3в ASCII. Якщо кодові точки 0x00для 0x03бажані, видалити eі f, потім перемістити простір, щоб заповнити цю прогалину.

Japt , 3 * 1 = 3 байти

5zB

Спробуйте в Інтернеті: як є , обертайте один раз , двічі , тричі .

Виходи відповідно 0, 5, 2, 11.

Змінна Bмістить значення 11 і Number.z(other)є поділом підлоги (всі шукали, мабуть, p). Для багаторядкового коду останній рядок передається на вихід, який тут просто константа.

2 * 2 = 4 байти

2J
1T

Спробуйте в Інтернеті: як є , обертайте один раз , двічі , тричі .

Виходи 0, 21, 2, -1 відповідно.

Tмає 0, а J-1.

Хитрість полягає в тому, що якщо два літерали чи змінні поставити поруч, вставляється кома, а вихід - лише останній.

2 * 2 Рішення JS працює і в Japt.