チャレンジ

できるだけ少ない文字で、nが与えられ、0より大きい正の整数であるi ^ nの値を見つけます。これは文字列として出力する必要があります。

知らない人のために、iはi ^ 2 = -1となるように定義されています。そう：

• i ^ 1 = i
• i ^ 2 = -1
• i ^ 3 = -i
• i ^ 4 = 1

これが繰り返されます。

ルール

• 言語が複素数をサポートしている場合、これを解決する可能性のある関数や算術を使用しないでください。
• とにかく小数を返す答えには浮動小数点の不正確さは問題ありませんが、整数入力は正確な結果を与えるはずです

ボーナスポイント

-5、nも負の値を計算できる場合

-15（実数の値を計算できる場合）（このボーナスには上記のボーナスの-5が含まれます）

がんばろう！

ルビー、スコア-2

（13バイト、-15ボーナス）

->n{[1,90*n]}

機能が含まれます：丸めエラーなし！（入力をRationalとして渡す場合）

著者、Kezz101により投稿

実数をサポートする場合、有効な複素数形式で出力できます。

ネガティブスコアにより、アドレナリンが急上昇します。したがって、ルールが悪用されると、この高貴な目標を達成するために利用されます。

匿名関数を作成し、極形式（角度単位：度）の複素数を表す2つのエントリを持つ配列を出力します。

CJam、12文字-5 = 7

1'iW"-i"]li=

ここでテストしてください。

負の入力をサポートします。

1              "Push 1.";
 'i            "Push the character i.";
   W           "Push -1.";
    "-i"       "Push the string -i.";
        ]      "Wrap all four in an array.";
         li    "Read STDIN and convert to integer.";
           =   "Access array. The index is automatically taken module the array length.";

結果はプログラムの最後に自動的に印刷されます。

Mathematica、22 20 19文字-15 = 4

Sin[t=π#/2]i+Cos@t&

これは匿名関数で、次のように使用できます

Sin[t=π#/2]i+Cos@t&[15]

（または、f言うように割り当ててから実行しますf[15]。）

実数をサポートし、整数入力の正確な結果を提供します。

は Mathematicaの複素数i（ではない）でiはないことに注意してください。これは未定義の変数です。I

また、式の順序にもかかわらず、Mathematicaは出力をR+Ci形式に並べ替えます。

Python 2-（24-5）= 19

lambda n:'1i--'[n%4::-2]

ほとんどのクレジットは@ user2357112に属し、私はこの回答に関するコメントから彼の回答をもう少しゴルフしました。

説明：n%4文字列内のインデックスから開始します'1i--'。次に、文字列の各文字を2ステップずつ逆方向に繰り返します。したがって、たとえば、n=6最初のインデックス2から開始し-、をスキップしてiを取得し1、を返し-1ます。

@xnorは同じ長さのソリューションを指摘しました：

lambda n:'--i1'[~n%4::2] 

パイス -（14-5）= 9

どのようにリバース/スライス/などをしようとしても、14しか得られないようです。： '（

%_2<"1i--"h%Q4

これは、上記のpythonの答えと本質的に同じですが、pythはpythonの完全なインデックスオプションをサポートしていないため、2つのステップで行われます。オンラインでお試しください。

Pythのインデックス作成についてisaacgと話をするつもりです;）

TI-BASIC（NSpire）-5（20文字-15）

cos(nπ/2)+sin(nπ/2)i

複雑な戻り値を受け取りたい場合iは、末尾の（complex i）を置き換えます。

マーベラス、43バイト

実際には勝者ではありませんが、Marbelousは楽しいです。:)

}0
^0
=0&2
&1
}0
^1\/
=0&02D3169
\/\/&0&1&2

これは、最初のコマンドライン引数から単一の整数として入力を読み取るプログラムです。入力は256を法として取られますが、256は4で割り切れるため、255を超える入力の結果の有効性には影響しません。

説明

Marbelousは2Dプログラミング言語で、多数のデバイスを通過する「マーブル」（バイト値）をシミュレートします。ボードは、大理石を処理できる2文字幅のセル（デバイス）で構成されています。ボードの底から落ちるものはすべてSTDOUTに出力されます。

使用中のデバイスを見てみましょう。

• }0は、最初のコマンドライン引数の場所です。このデバイスのインスタンスを2つ使用したので、入力値のコピーを2つ取得します（同時に）。
• ^nn入力マーブルのthビット（ここでn=0最下位ビット）をチェックし、ビットを生成1または0依存します。
• =0との等価性をチェックし0ます。入力ビー玉が等しい場合は、まっすぐに落下し、等しくない場合は右に押し出されます。
• \/ はゴミ箱ですので、それは単に入力大理石を飲み込み、何も生成しません。
• 2DはのASCIIコードで-、31はのASCIIコードで1あり69、はのASCIIコードですi。
• &nsynchronisersです。シンクロナイザーは、同じものをn持っているすべてのシンクロナイザーが大理石を保持するまで大理石を失速させます。

したがって、実際には、3つの関連する文字を3つのシンクロナイザーに保持し、入力で最下位ビットがどのように設定されているかに応じてそれらを解放します。

詳細については、仕様ドラフトを参照してください。

JavaScript（ES6）29-5 = 24

負の力をサポートします。

f=n=>(n&2?'-':'')+(n&1?'i':1)

ES5：

function f(n){return (n&2?'-':'')+(n&1?'i':1)}

Python 28バイト-5 = 23

-ve入力をサポートします。

ラムダ関数が許容されると仮定します（FryAmTheEggmanに感謝します！）：

lambda n:n%4/2*'-'+'1i'[n%2]

それ以外の場合は31バイト-5 = 26

print[1,"i",-1,"-i"][input()%4]

（Emacs）Lisp – 34

楽しみのために、（Emacs）Lispで：

(lambda(n)(elt[1 i -1 -i](% n 4)))

使用する場合は、a defunまたはuseを使用しますfuncall。

(funcall
 (lambda (n) (elt [1 i -1 -i] (% n 4)))
 4) => 1

(mapcar
 (lambda(n)(elt[1 i -1 -i](% n 4)))
 [0 1 2 3 4 5 6 7 8])
 => (1 i -1 -i 1 i -1 -i 1)

APL（Dyalog）、8文字-15ボーナス=スコア-7

組み込みの（したがって禁止されている）関数はですが0J1*⊢、これは@blutorangeのmethodを使用します。

¯12○.5×○

チャレンジの著者であるKezz101は次のように書いています。

実数をサポートする場合、有効な複素数形式で出力できます。

これは、aJbAPLが複素数を表示する通常の方法である形式で複素数を返します。

オンラインでお試しください！

説明

¯12○ ラジアン単位の角度を持つ単位ベクトルを見つける

.5× 半回

○ 引数にmultiplied（円定数）を掛けたもの

純粋なbash、29バイト-5 = 24

-ve入力をサポートします。

a=(1 i -1 -i)
echo ${a[$1%4]}

Befunge- 98、41-5 = 36 35-5 = 30 32-5 = 27

&4%:01-`!4*+:2%'8*'1+\2/d*' +,,@

負の整数をサポートします。このソリューションで賞を獲得するのではなく、何でも。

入力として数値を受け取り、モジュラスにいくつかの策略を行い（イライラさせて、テストに使用したインタープリターの負の数値の通常のモジュラスのように機能しません）、ネガを機能させ、次にいくつかの愚かな条件を実行します各キャラクターがどうあるべきかを決定します。

私はこれがさらにもっとたくさんゴルフできると確信しています。今のところ、マイナスを受け入れないが、短くすることでボーナスの損失を補う別のソリューションがあります：

Befunge-98、32 26 23

&4%:2%'8*'1+\2/d*' +,,@

編集 -「-」が「」から13（0xd）文字離れているという事実を利用します。

編集2-ここでも、「i」が'8「1」から56（0x38、または）文字離れているという事実を利用します。

Java 8スコア：72

ジャワでは、史上最悪のゴルフ言語！ゴルフ：

java.util.function.Function s=n->{new String[]{"i","-1","-i","1"}[n%4]};

拡張：

class Complex{

    java.util.function.Function s = n -> {new String[]{"i","-1","-i","1"}[n%4]};

}

注：私はJava 8には慣れていません。それ用のランタイムもまだありません。構文エラーがあるかどうか教えてください。これも私の最初のゴルフです。

編集：削除しましたimport。

編集：クラス宣言を削除しました。

スコア= 87-15 = 72の別の答え

java.util.function.Function s=n->{Math.cos(n*Math.PI/2)+"+"+Math.sin(n*Math.PI/2)+"i"};

拡張：

class Complex{

    java.util.function.Function s = n -> {Math.cos(n * Math.PI/2) + " + " + Math.sin(n * Math.PI/2) + "i"};

}

MATLAB、33バイト-5 = 28

x={'i','-1','-i','1'};x(mod(n,4))

数バイト（37-5 = 32）増えていますが、実際にはこのアプローチの方が好きです。

x='1i -';x((mod([n/2,n],2)>=1)+[3,1])

C 77

main(){int n;scanf("%d",&n);char c[]={n%4>1?'-':' ',~n%2?'1':'i',0};puts(c);}

ルスランのおかげで改善

C 74-5 = 69

ああ、もちろん最も明白なアプローチ

main(){unsigned n,*c[]={"1","i","-1","-i"};scanf("%d",&n);puts(c[n%4]);}

OCaml 47

let m n=List.nth["1";"i";"-1";"-i"](n mod 4);;

賞を受賞したソリューションではありませんが、これは初めてのコードゴルフですので、自分が何をしているのか正確にはわかりません。パターンマッチングを使用しようとしましたが、58を超えました。

パリ/ GP、19バイト-5 = 14

$\mathbb{C}$$\mathbb{R}[x]/(x^2+1)$

n->Str(i^n%(i^2+1))

iここでは単なる記号ではなく、（ある虚数単位であるIPARI / GPに）。

オンラインでお試しください！

ルビー32-5 = 27

puts(%w[1 i -1 -i][gets.to_i%4])

負の力で動作します！

Perl、26-5 = 21

say qw(1 i -1 -i)[pop()%4]

スタンドアロンプ​​ログラム（コマンドラインの引数）または関数の本体として機能します。

ジャワ：151 131-5 = 126

ゴルフ：

class A{public static void main(String[]a){int n=Integer.parseInt(a[0]);System.out.print(n%4==0?"1":n%4==1?"i":n%4==2?"-1":"-i");}}

ゴルフをしていない：

class A {
    public static void main(String[] a) {
        int n = Integer.parseInt(a[0]);
        System.out.print(n % 4 == 0 ? "1" : n % 4 == 1 ? "i" : n % 4 == 2 ? "-1" : "-i");
    }
}

関数として：72-5 = 67

ゴルフ：

void f(int n){System.out.print(n%4==0?"1":n%4==1?"i":n%4==2?"-1":"-i");}

ゴルフをしていない：

public void f(int n) {
    System.out.print(n % 4 == 0 ? "1" : n % 4 == 1 ? "i" : n % 4 == 2 ? "-1" : "-i");
}

はい、さらに別のJavaの応答-そして、ゴルフはさらに悪化しました。しかし、あなたはできることを使って作業します...

編集：機能バージョンを追加しました。

編集2：それで、少し試行錯誤の後、サイクル抜け穴を探ることなく、本によってそれをしようとするバージョンがあります。そう…

値計算を使用するJava：146-15 = 131

ゴルフ：

class B{public static void main(String[]a){float n=Float.parseFloat(a[0]);System.out.print(Math.cos((n*Math.PI)/2)+Math.sin((n*Math.PI)/2)+"i");}}

ゴルフをしていない：

class B {
    public static void main(String[] a) {
        float n = Float.parseFloat(a[0]);
        System.out.print(Math.cos((n * Math.PI) / 2) + Math.sin((n * Math.PI) / 2) + "i");
    }
}

（少なくとも、私はトップボーナスを請求できると思いますが、そうでなければ私を修正します）

Python-31

print[1,'i',-1,'-i'][input()%4]

私は最近Pythonを学び始めました。私はそれが良くないことを知っていますが、それは私ができる最善です。

Haskell GHCi、29バイト-15 = 14

i p=[cos(p*pi/2),sin(p*pi/2)]

使用法：

*Main> i 0
[1.0,0.0]
*Main> i pi
[0.22058404074969779,-0.9753679720836315]
*Main> i (-6.4)
[-0.8090169943749477,0.5877852522924728]

R、29-5 = 24バイト

c(1,"i",-1,"-i")[scan()%%4+1]

オンラインでお試しください！

上記のほとんどのメソッドと同様に、Rの配列は1インデックスであるため、4のモジュロをとり、1増やします。負の整数でも機能します。

ここでは混合出力について心配していましたが、Giuseppeは、Rが数値型を混合すると文字列型に強制することを指摘しました。

PowerShell、28バイト-5 = 23

('i',-1,'-i',1)["$args"%4-1]

オンラインでお試しください！

すべての巡回インデックスのポート

Haskell、29バイト-5 = 24

f n=words"1 i -1 -i"!!mod n 4

負の力に対して機能します。

ポイントフリー版を作成しましたが、実際にはもっと長いことがわかりました。

f=(words"1 i -1 -i"!!).(`mod`4)

Clojure（64 54 31文字）

(defn i2n[n](println(case(mod n 4) 1 "i" 2 "-1" 3 "-i" 0 "1")))

編集

@SeanAllredの提案に従って、case関数の代わりにリテラルベクトルを使用するバージョンがあります。

(defn i2n[n](println (["1" "i" "-1" "-i"] (mod n 4))))

編集2

REPLを使用して結果のコレクションを印刷し、#()ショートカットを使用して関数をコーディングすることにより、

#(["1" "i" "-1" "-i"](mod % 4))

（関数は、現在実際に関数と共に使用することができるように、生成された結果を返すように、はるかに実際のClojure / Lispのっぽいあるどのmapのように、

(map #(["1" "i" "-1" "-i"](mod % 4)) [0 1 2 3 4 5 6 7 8])

印刷する

("1" "i" "-1" "-i" "1" "i" "-1" "-i" "1")

共有してお楽しみください。

グルーヴィー：27-5 = 22

f={n->[1,'i',-1,'-i'][n%4]}

C 105、117

char c[2];
int main()
{
int n,i,j=0;scanf("%d",&n);i=n%4;
i>1?c[j++]='-':c[j+1]='\0';
c[j]=i&1?'i':'1';
puts(c);
}

PARI / GP、26-5 = 21

n->Str([1,I,-1,-I][n%4+1])

n->cos(t=Pi*n/2)+I*sin(t)は1文字短くなりますが、正確な答えを処理しません。もちろんn->I^n許可されていませんpowIs。また、おそらくPARIも禁止されています。

ゼリー、2-20 = -18バイト

ı*

オンラインでお試しください！

それは使用しませんi ^ x組み込みを、それはのための組み込みコマンドを使用1jして**許可されている場合は必ずそうではありません。

05AB1E、スコア5（10 バイト -5ボーナス）

'i®„-i1)Iè

オンラインそれを試してみてくださいまたはいくつかのより多くのテストケースを検証します。

説明：

'i         '# Push character "i"
  ®         # Push -1
   „-i      # Push string "-i"
      1     # Push 1
       )    # Wrap everything on the stack into a list: ["i", -1, "-i", 1]
        Iè  # Use the input to index into it (0-based and with automatic wrap-around)
            # (and output the result implicitly)