задача

Вы отвечаете за создание компаса, в некотором роде.

Представьте свой исходный код как «стрелку» компаса, где работа в разных направлениях дает отчетливый результат.

Поддерживаемые ориентации исходного кода: север, восток, юг и запад.

пример

Допустим, у вас есть исходный код:

ABCD
 J K
WXYZ

Мы рассмотрим ориентацию на север, вращение на 90 градусов по часовой стрелке указывает на восток:

W A
XJB
Y C
ZKD

вращение снова указывает на юг:

ZYXW
K J 
DCBA

и наконец, последний поворот на запад:

DKZ
C Y
BJX
A W

При запуске каждый из приведенных выше примеров кода должен выводить один, отдельный печатный символ ASCII по вашему выбору.

Заметки

Ваш код не должен вводить.

Пустые места или новые строки не разрушаются / исчезают при вращении.

Лидирующие / завершающие новые строки в порядке.

Ответы могут быть целыми программами или функциями, поэтому выводятся в STDOUT или возвращают результат функции.

Применяются стандартные правила игры в гольф ; кратчайший ответ в байтах побеждает!

Желе , 2 байта

*2

Попробуйте онлайн!

Обратите внимание, что основной записью для программы Jelly является ее последняя ссылка, где любой символ новой строки будет разбивать ссылки), ни одна из двухстрочных программ фактически не имеет доступа к своей верхней ссылке.

Четыре полных программы, все из которых неявно печатают свой результат:

Север :

*2   -> (implicit) zero raised to the power of 2 = 0

Восток :

*
2    -> literal 2 = 2

Юг :

2*   -> two raised to the power of (implicit) 2 = 4

Запад :

2
*    -> (implicit) zero raised to the power of (implicit) zero = 1

Japt , 3 2 байта

gy

Каким-то образом я нашел чрезвычайно хакерское 2-байтовое решение ...

Северные выходы 0:

gy

Поскольку неявного ввода не существует, по умолчанию используется 0. gon число возвращает знак числа независимо от его аргументов ( "y"в данном случае).

Восточные выходы 2:

g
y

В многострочной программе первая строка устанавливает ввод для его результата. Это в основном неоперативный, так как gна 0это 0. Затем yвозвращает GCD для 0и ..., поскольку в нем отсутствует аргумент, по умолчанию используется значение 2(спасибо, @Oliver !). Это дает 2в качестве выхода.

Южные выходы g:

yg

yКак и прежде, это GCD. Так как gcd (0, x) равен x для любого значения, yon 0берет на себя возможность просто вернуть свой аргумент. В этом случае аргумент есть "g", который является результатом.

Западные выводы 1:

y
g

yна 0, как и раньше, возвращает 2. Затем это передается g, который (как уже обсуждалось) является функцией знака на числах. Поэтому результат есть 1.

Java (OpenJDK 8) , 7309 4421 855 байт

^{-2888 байт благодаря Leaky Nun
-3566 байт благодаря Wheat Wizard}

//i/////////////////////////////////////////////////////////////
//n//////////////////////////////////////////////////////////////////
interface M{static void main(String[]a){System.out.println(0);}}/////
//e//}};)2(nltnirp.tuo.metsyS{)a][gnirtS(niam diov citats{M ecafretni
//r//////////////////////////////////////////////////////////////////
//f}/////////////////////////////////////////////////////////////////
//a}//
//c;//
//e)//
// 3//
//M(//
//{n//
//sl//
//tt//
//an//
//ti//
//ir//
//cp//
// .//
//vt//
//ou//
//io//
//d.//
// m//
//me//
//at//
//is//
//ny//
//(S//
//S{//
//t)//
//ra//
//i]//
//n[//
//gg//
//[n//
//]i//
//ar//
//)t//
//{S//
//S(//
//yn//
//si//
//ta//
//em//
//m //
//.d//
//oi//
//uo//
//tv//
//. //
//pc//
//ri//
//it//
//na//
//tt//
//ls//
//n{//
//(M//
//1 //
//)e//
//;c//
//}a//
//}f//
///r//
///e//
 //t//
 //n//
 //i//

Попробуйте онлайн!

Старая версия

Прямой подход с комментариями, обертывающими квадрат кода ^ 2, это можно сделать практически на любом языке.
(более читаемый) пример в Python

##p#####
# r  2 #
print 1#
# n  t #
# t  n #
#4 tnirp
# 3  r #
#####p##

Brain-Flak , 33 байта

##)(##))()()  ((
((  ))##    ()##

Попробуйте онлайн!

Brain-Flak , 33 байта

##)     ## #
(( ))#)())()
  # ( (

Попробуйте онлайн!

Brain-Flak , 36 байт

#)##     ## #
  (())#)())()
 #   ( (

Попробуйте онлайн!

Brain-Flak , 38 байт

######  (#
(()()())#))((
       #(  ##

Попробуйте онлайн!

Brain-Flak , 41 байт

##(#####(#
(()()())#
##))()((
####((#)#)#

Попробуйте онлайн!

Алиса , 17 байт

1/ 3<
vPo</
5} @<

Выходы 1. Попробуйте онлайн!

5v1
}P/
 o 
@<3
</<

Выходы x. Попробуйте онлайн!

<@ }5
/<oPv
<3 /1

Выходы 5. Попробуйте онлайн!

</<
3<@
 o 
/P}
1v5

Выходы 3. Попробуйте онлайн!

Befunge, 17 13 байт

Я думал, что Befunge будет весело для геометрической задачи. Здесь есть тривиальное решение 4х4, похожее на другое (мне нужно 3 команды), но мне удалось немного лучше.

Редактировать: забыл о новых строках

Редактировать 2: понял, что я мог бы создать кошку

Редактировать 3: кот мертв

2v3
@.v
.  
1@.

RIP котенок: <

1.@ 2
^._.^
3 @.4

05AB1E , 5 3 байта

Y'X

Север , восток , юг , запад

C (gcc) , 283 279 209 байтов

/////////)pm//
/////////;ua//
main(){//}ti//
puts("N"//sn//
);}///////((//
//////////")//
///"//////W{//
///E//////"///
//)"//////////
//((///////};)
//ns//"S"(stup
//it}//{)(niam
//au;/////////
//mp)/////////

Попробуйте онлайн!

Тот же старый трюк с комментариями здесь, но, по крайней мере, в С это не так важно ;)

• -4, благодаря ETHproductions !
• фиксированное Wнаправление и -70 (!) байтов благодаря комментариям ETHproductions

Лабиринт , 9 байт

!
2@2
 !)

Печать 0. Попробуйте онлайн!

 2)
 @!
!2

Печать 3. Попробуйте онлайн!

)!
2@2
  !

Печать 1. Попробуйте онлайн!

 2!
!@
)2

Печать 2. Попробуйте онлайн!

объяснение

Каждая программа начинается с первого не пробела в порядке чтения (т. Е. Вверху слева или вверху по центру), двигаясь на восток. Для первой программы:

!   Print an implicit zero.
    The IP can't move east, so it moves south instead.
2   Push a 2.
    The IP can't keep going south, so it turns east instead.
@   Terminate the program.

Для второй программы:

2   Push a 2.
)   Increment it to 3.
    The IP can't keep going east, so it turns south instead.
!   Print the 3.
    The IP can't keep going south, so it turns west instead.
@   Terminate the program.

Для третьей программы:

)   Increment an implicit zero to 1.
!   Print the 1.
    The IP can't keep going east, so it turns south instead.
@   Terminate the program.

Для четвертой программы:

2   Push a 2.
!   Print the 2.
    The IP can't keep going east, so it turns back around to move west.
2   Push another 2.
    The IP can't keep going west, so it turns south instead.
@   Terminate the program.

Wumpus , 7 байт

O@$
)))

Печать 0. Попробуйте онлайн!

)O
)@
)$

Печать 1. Попробуйте онлайн!

)))
$@O

Печать 3. Попробуйте онлайн!

$)
@)
O)

Печать 2. Попробуйте онлайн!

объяснение

Первая программа достаточно проста: Oпечатает неявный ноль и @завершает программу.

Начиная со второй программы, нам нужно взглянуть на треугольную сетку, чтобы понять поток управления:

)   Increment an implicit zero to 1.
O   Print the 1.
))  Two irrelevant increments.
@   Terminate the program.

Для третьей программы:

))) Increment an implicit zero to 3.
O   Print the 3.
@   Terminate the program.

Четвертый - это то, где это становится действительно прикольным. Пунктирные линии показывают ячейки, которые не выполняются, потому что они пропускаются $:

$   Skip the ).
$   Skip the @.
))  Increment an implicit zero to 2.
O   Print the 2.
))  Two irrelevant increments.
@   Terminate the program.

PowerShell , 20 11 байт

#4#
1#3
#2#

Злоупотребляет comments ( #) как сумасшедший, и тот факт, что одно число, помещенное в конвейер, получает вывод как есть. Вышеуказанные отпечатки 1. Попробуйте онлайн!

Отсюда вы можете легко увидеть, что каждое вращение дает только одно число, которое находится «слева» от комментариев, и, таким образом, есть только одно число, которое будет выводиться за вращение.

Сохранено 9 байт благодаря Wheat Wizard !

Звездный , 34 байта

  zz  
  +   
   .  
    + 
      

Или с пробелами, показанными как дефисы, чтобы вы могли их видеть:

--zz--
--+---
---.--
----+-
------

Попробуйте онлайн!

Команды в Starry - это +, .и некоторые другие вещи, и то, что они делают, определяется тем, сколько пробелов перед ними: a +с n пробелами выталкивает n −5 в стек, а .с четным числом пробелов печатает его. В zы и новые строки игнорируются полностью.

Перед первым есть 6 пробелов, +поэтому он нажимает 6−5 = 1 и .печатает его.

И повороты:

-----
-----
---+z
--.-z
-+---
-----

Попробуйте онлайн! Это печатает "8".

------
-+----
--.---
---+--
--zz--

Попробуйте онлайн! Это печатает "2".

-----
---+-
z-.--
z+---
-----
-----

Попробуйте онлайн! И это печатает «3».

постоянный ток , 9 байт

 1
2p3
 4

Попробуйте онлайн!

Я думаю, что его очевидность является частью очарования.

Пакетный, 90 байтов

 :: :::@:
:&s ohce@
:e   : c:
      :h:
:o     o:
:h:
:c :   w:
@echo n&:
:@::: ::

Пакет не имеет комментария. Для комментариев из всей строки, :работает, так как он вводит метку, но мне все еще нужно что-то, чтобы завершить echoкоманду, будучи неактивным в обратном порядке.&:кажется, что это работает, и это все, что мне нужно здесь, но это действительно сбивает с толку Пакет, выдает ошибку, если я не ставлю :перед @следующей строкой, а также как-то забывает напечатать новую строку.

МАТЛАБ, 29 17 5 11 байт

Поняв, что вопрос требует отдельных символов ASCII, а не просто отдельного вывода, вот подход MATLAB, который сделает именно это:

%4%
1%3
%2%

Это будет неявно печатать 1, 2, 3 или 4 в зависимости от поворота.

Кардинал , 20 17 12 11 байт

.$
Z%"
+$v

Попробуйте онлайн!

Все это время и никто не ответил в кардинал? Это первый вывод 0.

восток

 +Z.
 $%$
 v"

Попробуйте онлайн!

Выходы 1.

юг

v$+
"%Z
 $.

Попробуйте онлайн!

Выводит пробел.

запад

 "v
$%$
.Z+

Попробуйте онлайн!

Выходы v.

SOGL V0.12 , 4 байта

5H
I

Выходы 1, попробуйте здесь!

I5
 H

Выходы H, попробуйте здесь!

 I
H5

Выходы 5, попробуйте здесь!

H
5I

Выходы 6, попробуйте здесь!

JS, 17 B

//1//
2///4
//3//

Выходы:
север: 2,
восток: 3,
юг: 4,
запад: 0.33333333333….
(как в: 2, 3/1, 4, 1/3)

Извините, я имел в виду:

//0//
////
 1/2
/////
//3//

и 28B. И выводит как 0,5, 3, 2, 0.

JavaScript (ES6), 86 байт

Выходы 0 для Севера, 1 для Востока, 2 для Юга и 3 для Запада.

////  _//
////  =//
_=>0//>//
  ////1//
  // //
//3////
//>//2>=_
//=  ////
//_  ////

const source =
`////  _//
////  =//
_=>0//>//
  ////3//
  // //
//1////
//>//2>=_
//=  ////
//_  ////`;

function rotateTextCW(text) {
  const lines = text.split("\n");
  const maxLineLength = lines
    .map(line => line.length)
    .reduce((max, len) => Math.max(len, max), 0);
  const paddedLines = lines.map(line => line.padEnd(maxLineLength));
  const charGrid = paddedLines.map(line => line.split(""));
  const rotatedGrid = [...new Array(maxLineLength)]
    .map(v => new Array(charGrid.length));

  for (let i = 0; i < charGrid.length; i++) {
    for (let j = 0; j < charGrid[i].length; j++) {
      rotatedGrid[j][charGrid.length - i - 1] = charGrid[i][j];
    }
  }

  return rotatedGrid
    .map(chars => chars.join("").trimRight())
    .join("\n");
}

const orientations = ["North", "East", "South", "West"];
let rotatedSource = source;
let markup = "";

orientations.forEach(orientation => {
  const code = `<pre>${rotatedSource}</pre>`;
  const result = `<code>${eval(rotatedSource)()}</code>`;
  const row = `
    <td>${orientation}</td>
    <td>${code}</td>
    <td>${result}</td>`;
  markup += `<tr>${row}</tr>`;
  rotatedSource = rotateTextCW(rotatedSource);
});

document.querySelector("table tr:first-child")
  .parentNode
  .innerHTML += markup;

<link href="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.7/css/bootstrap.min.css" rel="stylesheet" />
<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script>
<script src="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.7/js/bootstrap.min.js"></script>

<div class="container">
  <table class="table table-striped table-responsive">
    <tr>
      <th>Orientation</th>
      <th>Source</th>
      <th>Result</th>
    </tr>
  </table>
</div>

MATL , 11 байт

HxI
xFx
TxK

Попробуйте онлайн!

Давайте начнем это в MATL. Основная проблема заключается в том, что MATL просто не работает, если функция требует ввода, если стек пуст. Может быть что - то умное с модификаторами нравится X, Y, Zи &мог бы сделать что - то более короткое, но я не мог найти подходящую комбинацию.

Объяснение: все символы помещают в стек одно целое число и xудаляют все, кроме последнего.

Perl, 49 байт

Код 48 байтов + 1 для -p.

Предполагается пустой ввод, который TIO не поддерживает, поэтому новая строка добавляется на место и не используется. Отпечатки Н , Е , S , W .

# ####
#S= _$
#; W#
 $_=N#
#_ _#
#= $#
#E#
 ## #

Попробуйте онлайн!

C (gcc) , 120 байтов

Я надеялся на большее взаимодействие между вариантами.

//}=)f8 ///
// c{(7 ///
   ;rr; //}
        ;c=
78; /// r{)
f(r /// r(f
){r /// ;38
=c;
}// ;rr;
/// 9({c //
/// 6f)=}//

к северу

восток

юг

запад