タイトルはそれをすべて言います。あなたの目標は、回転および再実行して、行われた90°Counter-Clockwise（CCW）回転の数を出力できる、文字のw×h長方形を形成するプログラムを作成することです。

たとえば、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です（もちろん、コメントがあるため無効です）。

ノート

• コードは実際には長方形で、行末に欠落文字がない必要があります。
• 必要に応じて、0 1 2 3の代わりに他の有効な「mod 90°」値を出力できます。したがって、0の代わりに8、3の代わりに-1が適切です。
• 出力はコンソールまたはファイルに送られます。
• 標準の抜け穴が適用されます。

これが私の最初の質問であり、本当に何人かの人々の興味を引くことを願っています。楽しい！

APL（1x3 = 3）

5!3

このソリューションでは、正しいmod 4の出力が機能するという追加のルールを使用します。

APLでは、から要素x!yを選択する方法の数で、一般にまたはとして知られています。各回転が正しい答えを与えることを確認しましょう。xybinom(y,x)choose(y,x)

0回転

5!3

3から5つの要素を選択する方法はないため、0が取得され、自動的に印刷されます。

1 CCW回転

3
!
5

APLは各行を喜んで評価し、number 3、operator !、そしてnumberを取得し、5これらの最後の（5）のみを出力します。これは1 mod 4です。

2 CCW回転

3!5

これはbinom(5,3)、つまり(5*4*3*2*1)/(3*2*1)/(2*1) = 10、2 mod 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）。<give 0や1180度離れたようなブール演算子は機能しません。最後に、二項演算子を見つけ、!その結果が得られるまで数字を試しました。

2x2よりも小さなソリューションが存在するという自信を持っているQuincunxに感謝します。

ルビー、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 

他のソリューションよりも少し長くなりますが、少なくともこのソリューションは暗黙的な印刷やルールの乱用に依存しません。4つのローテーションすべてについて、完全なコードが解析され、一部の短絡以外はすべて実行されます。驚くべきことに、コードにはまったく対称性がありません

この解決策はp、同じ名前の変数が既に定義されている場合でも、関数を呼び出すことができるという事実に依存しています。たとえば、変数を引数としてp p関数pを呼び出すようなものですp（したがって、の値を出力しますp）。

コードで使用されるいくつかの一般的な式の説明：

• p：上記のように、これは関数呼び出しまたは変数のいずれかです。変数が定義されpていない場合、これは引数なしで関数を呼び出し、何もせずに戻りますnil。
• p p：変数を出力しますp。
• p|x：p関数がの場合、これはと同じnil|xで、の値に応じてtrue / falseを返しますx。pが整数の場合、ビット単位のorです。いずれにしても、このステートメントには副作用はありません。
• 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

（mod 4）を印刷4312し0ます。回転は3241（1 mod 4）、2134（2 mod 4）、および1423（3 mod 4）を印刷します。

プロンプト：

必要に応じて、0 1 2 3の代わりに他の有効な「mod 90°」値を出力できます。したがって、0の代わりに8、3の代わりに-1が適切です。

実際には、これが機能する多くの数値セットがあります。この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のソリューションです。

Python-23 x 23 = 529

OK、この質問にはすでに勝者がいますが、まだPythonソリューションはありません。だから私はそれについて考えた-重い！-そしてprint、他の方向のいずれかから解析されたときにエラーを生成することなく、任意の方向でかさばるコマンドを動作させる方法を見つけました。

ブレークスルーは次の行でした。

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

forward_codeが実行されている間、はbackward_code文字列の一部であるため、印刷されません。これは、逆読みする場合のまったく逆の方法です。

したがって、さらに2つの方向と組み合わせて、すべての引用符が正しく一致するように微調整すると、次の解決策になります。

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

編集：私はそのすべての空白を処理する方法を見つけました。;）

ベーシック、64

勝つことはできませんが、ここではとにかくです。（Chipmunk 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の変更により2桁の数字の生成が困難になりました（元に戻すことを検討している変更）が、Pythの古いバージョンでは2桁の数字が簡単に生成され、暗黙の印刷と最初の行以外のすべての行無視され、次の解決策が得られます。

32
41

32、21、14、43を印刷します。

Befunge、16歳

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

説明：から数字0に9スタックに対応する番号を押して、.スタックから値をポップし、整数としてそれを印刷し、@プログラムを終了します。

（ここでテスト済み）

ピート、49

私は黄色と赤の色を使用し、それをほぼ対称にしようとすることだけを指摘しました。回転すると、0、1、2、または3が印刷されます。Pietでプログラムを終了するのは難しく、残念ながら画像の約半分のスペースを占有します。

GNU dc、6（3x2）

これは「mod 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をスタックにプッシュし、カーソルを1文字右に移動します。뷸とは、それぞれ5と3をスタックにプッシュし、カーソルを2文字下に移動します。stackスタック内の数字をポップして印刷し、カーソルを1文字上に移動します。programプログラムを終了します。

JavaScript

（ブラウザコンソール、シェル、または別のREPLに入力されたため、結果が出力されます）

1+2
-3-
4+5

式、重要でない改行、および結果の自動印刷を備えた他の言語で動作するはずです。

MATLAB /オクターブ- 144 100

ゴルフ：10 x 10 = 100

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

代替ソリューション：15 x 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の2次元の性質を最大限に活用し、2つの方向でコードパスを垂直に実行することで、既存の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

2回回転：

hpqh
q23p
p10q
hqph

3回回転：

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）であり、構文的であることに注意してください。それなしでは、開始位置を見つけることができません。したがって、長方形内のすべての位置が占有されます。

要素、2x3 = 6

1*
`2
3 

これは、3x3の単純なソリューションよりも改善されています。3x3のソリューションでは、`両側に数字が表示されます。上記の0の場合*は、3を何も乗算せずに0を取得するために使用されるため、最も興味深いものです。それ以外は、それほど複雑ではありません。

スペースが気まずい場合は、を除く他のほとんどの文字に置き換えることができます[]{}`_。

参考までに、他の3つのローテーションを次に示します。

case 1
*2 
1`3

case 2
 3
2`
*1

case 3
3`1
 2*

チップ、（2x5）10

b~
+a
~t
e*
 f

*すべての隣接要素をアクティブにします：北、東、南、西（ソース）
~、西からアクティブにされていない場合、東の隣（NOT-gate）をアクティブにします（ここではアクティブになりません）
t現在のバイトを出力した後、実行を終了します出力セットの
aビット0x01を
b設定しますビット0x02出力は、
eビットセット0x10の出力は、
fビットセット0x20の出力を
+、任意の隣人によって活性化された場合に活性化する他のすべての隣人（ワイヤ）

チップには、-wフラグ（入力なしで実行できるようにする）、または実行するための入力が必要です。

プリント0、1、2、または3ASCIIインチ コードポイントがあれば0x00することが0x03望まれ、削除eおよびfその後のギャップを埋めるためにスペースを移動します。

Japt、3 * 1 = 3バイト

5zB

オンラインで試してください：そのまま、 1回、 2回、 3回回転します。

それぞれ0、5、2、11を出力します。

変数Bは値11を保持し、Number.z(other)フロア分割です（誰もが明らかに：pを探しました）。複数行コードの場合、最後の行が出力に渡されますが、これは単に定数です。

2 * 2 = 4バイト

2J
1T

オンラインで試してください：そのまま、 1回、 2回、 3回回転します。

それぞれ0、21、2、-1を出力します。

T0をJ保持し、-1 を保持します。

秘Theは、2つのリテラルまたは変数を並べて配置すると、コンマが挿入され、出力が最後のものになるということです。

2 * 2 JSソリューションはJaptでも機能します。