Görev

Bir çeşit pusula yapmaktan sen sorumlusun.

Kaynak kodunuzu, farklı yönlerde çalışmanın farklı çıktılar ürettiği pusula "iğne" olarak hayal edin.

Desteklenen kaynak kodu yönlendirmeleri Kuzey, Doğu, Güney ve Batı'dır.

Örnek

Kaynak kodunuz olduğunu varsayalım:

ABCD
 J K
WXYZ

Bunu Kuzey yönünü dikkate alacağız, saat yönünde 90 derece döndürmek bizi Doğu'ya yönlendirir:

W A
XJB
Y C
ZKD

tekrar dönerek Güney noktaları:

ZYXW
K J 
DCBA

ve son olarak, Batı’ya son dönüş:

DKZ
C Y
BJX
A W

Çalıştığında, yukarıdaki kod örneklerinin her biri, seçtiğiniz bir tek, farklı yazdırılabilir ASCII karakteri vermelidir .

notlar

Kodunuz girdi almayacaktır.

Boş alanlar veya yeni çizgiler döndürülürken çökmez / kaybolmaz.

Önde gelen / takip eden yeni çizgiler çıktıda tamamdır.

Cevaplar tüm programlar veya fonksiyonlar olabilir, bu nedenle STDOUT'a verilir veya fonksiyon sonucunu döndürür.

Standart kod-golf kuralları geçerlidir; bayt cinsinden en kısa cevap kazanır!

Jöle , 2 bayt

*2

Çevrimiçi deneyin!

Bir Jelly programının ana girişinin, herhangi bir yeni satır karakterinin bağlantıları böldüğü son bağlantı olduğunu unutmayın), iki satırlı programların hiçbiri gerçekten üst bağlantılarına erişemez.

Tamamı dolaylı olarak sonuçlarını basan dört tam program:

Kuzey :

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

Doğu :

*
2    -> literal 2 = 2

Güney :

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

Batı :

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

Japt , 3 2 bayt

gy

Her nasılsa, her nasılsa , son derece hack 2 baytlık bir çözüm buldum ...

Kuzey çıkışlar 0:

gy

Örtük giriş olmadığından, varsayılan olarak değişir 0. gBir sayı üzerinde, bağımsız değişkenlerinden bağımsız olarak sayının işaretini döndürür ( "y"bu durumda).

Doğu çıktıları 2:

g
y

Çok satırlı bir programda, ilk satır girişi sonucuna ayarlar. Bu yana, temelde bir no-op olan gilgili 0DİR 0. Ardından GCD'yiy döndürür 0ve ... bir argüman eksik olduğundan, varsayılan olarak 2(teşekkürler, @Oliver !) Olur . Bu 2çıktı olarak verir .

Güney çıkışlar g:

yg

y, önceden olduğu gibi, GCD'dir. Yana gcd (0, x) olan X , herhangi bir değer için yüzerinde 0sadece bir argüman dönen özgürlük alır. Bu durumda, argüman "g"sonuçtur.

Batı çıktıları 1:

y
g

y0 dan önce olduğu gibi döner 2. Bu daha sonra g(daha önce tartışıldığı gibi) sayılar üzerindeki işaret işlevidir. Bu nedenle, sonuç 1.

Java (OpenJDK 8) , 7309 4421 855 bayt

^{Buğday Sihirbazı sayesinde Leaky Nun
-3566 bytes sayesinde -2888 byte}

//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//

Çevrimiçi deneyin!

Eski versiyon

^ 2 kare kodunu saran yorumlar ile basit bir yaklaşım, bu hemen hemen her dilde yapılabilir.
python'da (okunabilir) bir örnek

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

Brain-Flak , 33 bayt

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

Çevrimiçi deneyin!

Brain-Flak , 33 bayt

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

Çevrimiçi deneyin!

Brain-Flak , 36 bayt

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

Çevrimiçi deneyin!

Brain-Flak , 38 bayt

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

Çevrimiçi deneyin!

Brain-Flak , 41 bayt

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

Çevrimiçi deneyin!

Alice , 17 bayt

1/ 3<
vPo</
5} @<

Çıkışlar 1. Çevrimiçi deneyin!

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

Çıkışlar x. Çevrimiçi deneyin!

<@ }5
/<oPv
<3 /1

Çıkışlar 5. Çevrimiçi deneyin!

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

Çıkışlar 3. Çevrimiçi deneyin!

Befunge, 17 13 bayt

Befunge'nin geometrik bir problem için eğlenceli olacağını düşündüm. Burada başkalarına benzer önemsiz bir 4x4 çözümü var (3 komuta ihtiyacım var) ama biraz daha iyi başardım.

Düzenleme: yeni satırları unuttum

Düzenleme 2: bir kedi yaratabileceğimi farkettim

Düzenleme 3: kedi öldü

2v3
@.v
.  
1@.

RIP kitty: <

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

05AB1E , 5 3 bayt

Y'X

Kuzey , doğu , güney , batı

C (gcc) , 283 279 209 bayt

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

Çevrimiçi deneyin!

Burada aynı eski yorum hile, ama en azından, C bu huuuge alamaz ;)

• -4, ETHproductions sayesinde !
• ETHproductions'unW yorumları sayesinde sabit yön ve -70 (!) bayt sayısı

Labirent , 9 bayt

!
2@2
 !)

Yazdırır 0. Çevrimiçi deneyin!

 2)
 @!
!2

Yazdırır 3. Çevrimiçi deneyin!

)!
2@2
  !

Yazdırır 1. Çevrimiçi deneyin!

 2!
!@
)2

Yazdırır 2.Çevrimiçi deneyin!

açıklama

Her program, ilk boş olmayan alanda okuma sırasına göre (yani sol üst veya orta üst karakter), doğuya doğru hareket ederek başlar. İlk program için:

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

İkinci program için:

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.

Üçüncü program için:

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

Dördüncü program için:

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 bayt

O@$
)))

Yazdırır 0. Çevrimiçi deneyin!

)O
)@
)$

Yazdırır 1. Çevrimiçi deneyin!

)))
$@O

Yazdırır 3. Çevrimiçi deneyin!

$)
@)
O)

Yazdırır 2. Çevrimiçi deneyin!

açıklama

İlk program yeterince kolaydır: Oörtük bir sıfır yazdırır ve @programı sonlandırır.

İkinci programdan başlayarak kontrol akışını anlamak için üçgen ızgara düzenine bakmamız gerekir:

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

Üçüncü program için:

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

Dördüncüsü, gerçekten korkaklaştığı yerdir. Kesikli çizgiler $: tarafından atlanmadıkları için çalıştırılmayan hücreleri gösterir :

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

PowerShell , 20 11 bayt

#4#
1#3
#2#

Kötüye kullanılan yorumları ( #) kötüye kullanır ve boru hattına tek bir sayının olduğu gibi çıktı verir. Yukarıdaki baskılar 1. Çevrimiçi deneyin!

Buradan, her rotasyonun yorumların "solunda" yalnızca bir sayı verdiğini kolayca görebilirsiniz ve bu nedenle rotasyon başına çıkacak yalnızca bir sayı vardır.

Buğday Sihirbazı sayesinde 9 bayt kurtardı !

Yıldızlı , 34 bayt

  zz  
  +   
   .  
    + 
      

Veya tire olarak gösterilen boşluklarla onları görebilirsiniz:

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

Çevrimiçi deneyin!

Starry komutlar vardır +, .ve diğer bazı şeyler ve onlardan önce kaç tane alanlarda neler yaptıklarını belirlenir: a +ile n alanlarda iter n -5 yığınına ve. boşluklar baskılar bunun eşit bir sayı ile. zLer ve satırbaşları tamamen göz ardı edilir.

İlk önce 6 boşluk var + bu yüzden 6−5 = 1 iter. onu yazdırır.

Ve rotasyonlar:

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

Çevrimiçi deneyin! Bu "8" yazdırır.

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

Çevrimiçi deneyin! Bu "2" yazdırır.

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

Çevrimiçi deneyin! Ve bu "3" yazdırır.

dc , 9 bayt

 1
2p3
 4

Çevrimiçi deneyin!

Ben onun barizliği cazibenin bir parçası olduğunu düşünüyorum.

Toplu iş, 90 bayt

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

Toplu işlem gerçekten bir yorum karakterine sahip değil. Tüm yorumlar için, :bir etiket getirdiği için çalışır, ancak echogeri çevrildiğinde no-op olurken komutu sonlandırmak için hala bir şeye ihtiyacım var . &:sanki burada ihtiyacım olan tek şey çalışıyor gibi görünüyor, ama gerçekten de Batch'ı şaşırtıyor , bir sonraki satıra daha :önce koymazsam hata yapıyor @ve bir şekilde yeni bir satır yazdırmayı unutuyor.

MATLAB, 29 17 5 11 bayt

Tek ASCII karakterleri için çağrılan sorunun yalnızca farklı bir çıktı değil, işte bunu yapacak olan bir MATLAB yaklaşımı olduğunu fark ettikten sonra:

%4%
1%3
%2%

Bu, dönüşe bağlı olarak örtük olarak 1, 2, 3 veya 4 yazdırır.

Kardinal , 20 17 12 11 bayt

.$
Z%"
+$v

Çevrimiçi deneyin!

Bunca zamandır kimse Kardinal’de cevap vermedi mi? Bu ilk çıktılar0 .

Doğu

 +Z.
 $%$
 v"

Çevrimiçi deneyin!

çıktılar 1.

güney

v$+
"%Z
 $.

Çevrimiçi deneyin!

Bir boşluk çıkarır.

Batı

 "v
$%$
.Z+

Çevrimiçi deneyin!

Çıkışlar v.

SOGL V0.12 , 4 bayt

5H
I

Çıktılar 1, Burada Deneyin!

I5
 H

Çıktılar H, Burada Deneyin!

 I
H5

Çıktılar 5, Burada Deneyin!

H
5I

Çıktılar 6, Burada Deneyin!

JS, 17 B

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

Çıktılar:
Kuzey: 2,
Doğu: 3,
Güney: 4,
Batı: 0.33333333333….
(içinde: 2, 3/1, 4, 1/3)

Üzgünüm, demek istedim:

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

ve 28B. Ve 0,5, 3, 2, 0 olarak çıktılar.

JavaScript (ES6), 86 bayt

Kuzey için 0, Doğu için 1, Güney için 2 ve Batı için 3 çıktı.

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

HxI
xFx
TxK

Çevrimiçi deneyin!

Bunu MATL'de başlatalım. En büyük zorluk, MATL'nin, yığın boşsa, bir fonksiyonun giriş yapmasını gerektirmesi durumunda başarısız olmasıdır. Düzenleyici kullanılan akıllı Belki bir şey gibi X, Y, Zve &daha kısa bir şey yapabiliriz, ama uygun bir birleşimini bulamadık.

Açıklama: tüm karakterler yığında tek bir tamsayı itiyor ve xhepsini sonuncusundan kaldırıyor.

Perl, 49 bayt

İçin 48 bayt kodu + 1 -p.

TIO'nun desteklemediği boş bir girdi olduğunu varsayar, bu nedenle yerine bir yeni satır eklenir ve kullanılmaz. N , E , S , W yazdırır .

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

Çevrimiçi deneyin!

C (gcc) , 120 bayt

Değişkenler arasında daha fazla sinerji olmasını ummuştum.

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

Kuzeyinde

Doğu

güney

Batı