Tugas

Anda bertugas membuat kompas, semacam itu.

Bayangkan kode sumber Anda sebagai "jarum" kompas di mana menjalankan berbagai orientasi menghasilkan output yang berbeda.

Orientasi kode sumber yang didukung adalah Utara, Timur, Selatan, dan Barat.

Contoh

Katakanlah Anda memiliki kode sumber:

ABCD
 J K
WXYZ

Kami akan menganggap ini sebagai orientasi Utara, berputar 90 derajat searah jarum jam mengarahkan kita ke Timur:

W A
XJB
Y C
ZKD

berputar lagi menunjuk ke Selatan:

ZYXW
K J 
DCBA

dan akhirnya, rotasi terakhir ke Barat:

DKZ
C Y
BJX
A W

Ketika dijalankan, masing-masing contoh kode di atas harus menampilkan karakter ASCII tunggal yang dapat dicetak yang Anda pilih.

Catatan

Kode Anda tidak akan menerima input.

Ruang kosong atau garis baru tidak runtuh / hilang saat berputar.

Memimpin / mengikuti garis baru tidak apa-apa dalam output.

Jawaban dapat berupa seluruh program atau fungsi, dengan demikian output ke STDOUT atau mengembalikan hasil fungsi.

Standar kode-golf aturan berlaku; jawaban terpendek dalam byte menang!

Jelly , 2 byte

*2

Cobalah online!

Perhatikan bahwa entri utama untuk program Jelly adalah tautan terakhirnya, di mana karakter baris baru mana pun akan memecah tautan), tak satu pun dari program dua baris ini yang benar-benar mengakses tautan teratas mereka.

Keempat program lengkap, yang semuanya secara implisit mencetak hasilnya, adalah:

Utara :

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

Timur :

*
2    -> literal 2 = 2

Selatan :

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

Barat :

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

Japt , 3 2 byte

gy

Entah bagaimana, entah bagaimana , saya menemukan solusi 2-byte yang sangat aneh ...

Output utara0 :

gy

Karena tidak ada input implisit, maka defaultnya adalah 0. gpada nomor mengembalikan tanda nomor terlepas dari argumennya ( "y"dalam hal ini).

Output timur2 :

g
y

Dalam program multi-baris, baris pertama mengatur input ke hasilnya. Ini pada dasarnya adalah no-op, karena gon 0is 0. Kemudian ykembalikan GCD dari 0dan ... karena tidak ada argumen, defaultnya adalah 2(terima kasih, @Oliver !). Ini memberi 2sebagai output.

Output selatang :

yg

y, seperti sebelumnya, adalah GCD. Karena gcd (0, x) adalah x untuk nilai apa pun, yon 0mengambil kebebasan hanya dengan mengembalikan argumennya. Dalam hal ini, argumennya adalah "g", yang merupakan hasilnya.

Output barat1 :

y
g

ypada 0, seperti sebelumnya, kembali 2. Ini kemudian diteruskan ke g, yang (sebagaimana telah dibahas) adalah fungsi tanda pada angka. Karena itu, hasilnya adalah 1.

Java (OpenJDK 8) , 7309 4421 855 byte

^{-2888 bytes berkat Leaky Nun
-3566 bytes berkat 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//

Cobalah online!

Versi lama

Pendekatan langsung dengan komentar yang membungkus kode ^ 2 persegi, ini dapat dilakukan dalam hampir semua bahasa.
contoh (lebih mudah dibaca) dengan python

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

Brain-Flak , 33 byte

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

Cobalah online!

Brain-Flak , 33 byte

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

Cobalah online!

Brain-Flak , 36 byte

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

Cobalah online!

Brain-Flak , 38 byte

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

Cobalah online!

Brain-Flak , 41 byte

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

Cobalah online!

Alice , 17 byte

1/ 3<
vPo</
5} @<

Keluaran 1. Cobalah online!

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

Keluaran x. Cobalah online!

<@ }5
/<oPv
<3 /1

Keluaran 5. Cobalah online!

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

Keluaran 3. Cobalah online!

Befunge, 17 13 byte

Saya pikir Befunge akan menyenangkan untuk masalah geometris. Ada solusi 4x4 sepele yang mirip dengan yang lain di sini (saya perlu 3 perintah) tapi saya berhasil sedikit lebih baik.

Sunting: lupa tentang baris baru

Sunting 2: sadar saya bisa membuat kucing

Sunting 3: kucing sudah mati

2v3
@.v
.  
1@.

RIP kitty: <

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

05AB1E , 5 3 byte

Y'X

Utara , Timur , Selatan , Barat

C (gcc) , 283 279 209 byte

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

Cobalah online!

Trik komentar lama yang sama di sini, tapi setidaknya, di C ini tidak mendapatkan huuuge ;)

• -4, terima kasih kepada ETHproductions !
• Warah tetap dan -70 (!) byte berkat komentar dari ETHproductions

Labirin , 9 byte

!
2@2
 !)

Cetakan 0. Cobalah online!

 2)
 @!
!2

Cetakan 3. Cobalah online!

)!
2@2
  !

Cetakan 1. Cobalah online!

 2!
!@
)2

Cetakan 2. Cobalah online!

Penjelasan

Setiap program dimulai pada non-spasi pertama dalam urutan membaca (yaitu karakter kiri atas atau tengah tengah), bergerak ke timur. Untuk program pertama:

!   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.

Untuk program kedua:

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.

Untuk program ketiga:

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

Untuk program keempat:

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 byte

O@$
)))

Cetakan 0. Cobalah online!

)O
)@
)$

Cetakan 1. Cobalah online!

)))
$@O

Cetakan 3. Cobalah online!

$)
@)
O)

Cetakan 2. Cobalah online!

Penjelasan

Program pertama cukup mudah: Omencetak nol implisit dan@ mengakhiri program.

Mulai dari program kedua, kita perlu melihat tata letak kotak segitiga untuk memahami aliran kontrol:

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

Untuk program ketiga:

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

Yang keempat adalah di mana ia menjadi sangat funky. Garis putus-putus menunjukkan sel yang tidak dieksekusi karena dilewati oleh $:

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

PowerShell , 20 11 byte

#4#
1#3
#2#

Menyalahgunakan komentar ( #) seperti orang gila, dan fakta bahwa satu nomor yang ditempatkan pada pipeline mendapat output apa adanya. Cetakan di atas1 . Cobalah online!

Dari sini, Anda dapat dengan mudah melihat bahwa setiap rotasi hanya menghasilkan satu angka yang ada di "kiri" komentar, dan hanya ada satu angka yang akan menjadi output per rotasi.

Disimpan 9 byte berkat Wheat Wizard !

Starry , 34 byte

  zz  
  +   
   .  
    + 
      

Atau dengan spasi yang ditampilkan sebagai tanda hubung sehingga Anda dapat melihatnya:

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

Cobalah online!

Perintah-perintah di Starry adalah +, .dan beberapa hal lain, dan apa yang mereka lakukan ditentukan oleh berapa banyak ruang yang ada sebelum mereka: a +dengan n spasi mendorong n −5 ke stack, dan .dengan sejumlah spasi bahkan mencetaknya. Ituz s dan baris baru diabaikan seluruhnya.

Ada 6 spasi sebelum yang pertama +sehingga mendorong 6−5 = 1, dan. mencetaknya.

Dan rotasi:

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

Cobalah online! Ini mencetak "8".

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

Cobalah online! Ini mencetak "2".

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

Cobalah online! Dan ini mencetak "3".

dc , 9 byte

 1
2p3
 4

Cobalah online!

Saya pikir kejelasannya adalah bagian dari pesona.

Batch, 90 byte

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

Batch tidak benar-benar memiliki karakter komentar. Untuk komentar seluruh baris, :berfungsi, karena memperkenalkan label, tetapi saya masih membutuhkan sesuatu untuk menghentikan echoperintah sementara menjadi no-op ketika dibalik. &:tampaknya berfungsi, itulah yang saya butuhkan di sini, tetapi itu benar-benar membingungkan Batch, keliru jika saya tidak meletakkan :sebelum @pada baris berikutnya, dan juga entah bagaimana lupa untuk mencetak baris baru.

MATLAB, 29 17 5 11 byte

Setelah menyadari bahwa pertanyaan yang dipanggil untuk karakter ASCII tunggal bukan hanya keluaran yang berbeda, berikut adalah pendekatan MATLAB yang akan melakukan hal itu:

%4%
1%3
%2%

Ini secara implisit akan mencetak 1, 2, 3, atau 4 tergantung pada rotasi.

Kardinal , 20 17 12 11 byte

.$
Z%"
+$v

Cobalah online!

Selama ini dan tidak ada yang menjawab di Kardinal? Ini output pertama 0.

Timur

 +Z.
 $%$
 v"

Cobalah online!

Keluaran 1.

Selatan

v$+
"%Z
 $.

Cobalah online!

Menghasilkan spasi.

Barat

 "v
$%$
.Z+

Cobalah online!

Keluaran v.

SOGL V0.12 , 4 byte

5H
I

Keluaran 1, Coba Di Sini!

I5
 H

Keluaran H, Coba Di Sini!

 I
H5

Keluaran 5, Coba Di Sini!

H
5I

Keluaran 6, Coba Di Sini!

JS, 17 B

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

Output:
Utara: 2,
Timur: 3,
Selatan: 4,
Barat: 0.33333333333….
(seperti dalam: 2, 3/1, 4, 1/3)

Maaf, maksud saya:

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

dan 28B. Dan output sebagai 0,5, 3, 2, 0.

JavaScript (ES6), 86 byte

Output 0 untuk Utara, 1 untuk Timur, 2 untuk Selatan, dan 3 untuk Barat.

////  _//
////  =//
_=>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 byte

HxI
xFx
TxK

Cobalah online!

Mari kita mulai ini di MATL. Tantangan utama adalah bahwa MATL gagal jika suatu fungsi membutuhkan input jika stack kosong. Mungkin sesuatu pintar dengan pengubah seperti X, Y, Zdan &bisa membuat sesuatu yang lebih pendek, tapi aku tidak bisa menemukan kombinasi yang cocok.

Penjelasan: semua karakter mendorong bilangan bulat tunggal pada tumpukan, dan xmenghapus semuanya kecuali yang terakhir.

Perl, 49 byte

48 byte kode +1 untuk -p.

Mengasumsikan input kosong yang TIO tidak mendukung, sehingga baris baru ditambahkan di tempatnya dan tidak digunakan. Cetakan N , E , S , W .

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

Cobalah online!

C (gcc) , 120 byte

Saya berharap lebih banyak sinergi antar varian.

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

Utara

Timur

Selatan

Barat