Meydan okuma

Mümkün olduğu kadar az karakterde, n, 0'dan büyük bir pozitif tamsayı verilen i ^ n değerini bulun. Bu bir String olarak verilmelidir.

Bilmeyenler için, i ^ 2 = -1 olacak şekilde tanımlanır. Yani:

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

Bu daha sonra tekrarlar ..

kurallar

• Diliniz karmaşık sayıları destekliyorsa, bunu çözebilecek hiçbir işlev veya aritmetik kullanmayın.
• Kayan nokta yanlışlıkları, yine de ondalık sayı döndürecek cevaplar için iyidir, ancak tamsayı girişleri kesin sonuçlar vermelidir.

Bonus puanlar

-5 n'nin negatif olduğu yerlerde bu değeri hesaplayabilirsiniz

-15 Herhangi bir gerçek sayının değerini hesaplayabilirseniz (bu bonus yukarıdaki bonustan -5 içerir)

İyi şanslar!

Ruby, skor -2

(13 bayt, -15 bonus)

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

Özellikleri şunlardır: yuvarlama hatası yok! (girişi Rasyonel olarak iletirseniz)

yazar Kezz101 tarafından yayınlanmıştır

Herhangi bir gerçek sayıyı destekliyorsanız, geçerli bir karmaşık biçimde çıktı alabilirsiniz.

Negatif puanlar adrenalin seviyemi artırıyor. Böylelikle kötüye kullanılan kurallar , bu soylu hedefe ulaşmak için kullanılır.

Anonim bir işlev oluşturur ve kutupsal formda karmaşık bir sayıyı temsil eden 2 girişli bir dizi çıkarır (açısal birim: derece).

CJam, 12 karakter - 5 = 7

1'iW"-i"]li=

Burada test et.

Negatif girişleri destekler.

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.";

Sonuç, programın sonunda otomatik olarak yazdırılır.

Mathematica, 22 20 19 karakter - 15 = 4

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

Bu, kullanabileceğiniz anonim bir işlevdir.

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

(Ya da fsöylemesi için atama yapın ve yapın f[15].)

Gerçekleri destekler ve tamsayı girişi için kesin sonuçlar verir.

Not iolduğu değil MATHEMATICA karmaşık i (ki I). Bu sadece tanımsız bir değişken.

Ayrıca, ifadenin sırasına rağmen, Mathematica çıktıyı yeniden düzenleyecektir R+Ci.

Python 2 - (24-5) = 19

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

Kredilerin çoğu @ user2357112'ye aittir, bu cevaba yapılan yorumdaki cevabını biraz daha arttırdım .

Açıklama: n%4Dizedeki dizinden başlar '1i--'. Sonra dizedeki her harfin üzerinde iki adımda geriye doğru yinelenir. Bu nedenle, örneğin, n=6ilk önce 2. dizinde başlayacak -, sonra geri dönecek ive sonra atlayacak .1-1

@ xnor aynı uzunlukta bir çözümü işaret etti:

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

Pyth - (14-5) = 9

Ne kadar ters / dilim / etc denemeye çalışsam da sadece 14 elde edebiliyorum. : '(

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

Temelde yukarıdaki python cevabı ile aynıdır, ancak 2 adımda, çünkü pythhon tam indeksleme seçeneklerini desteklemez. Çevrimiçi deneyin.

İsaacg ile Pyth indeksleme hakkında konuşacağım;)

TI-BASIC (NSpire) - 5 (20 karakter-15)

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

Karmaşık bir geri dönüş değeri almak istiyorsanız i, sondaki (karmaşık i) ile değiştirin.

Mermer , 43 bayt

Gerçekten bir kazanan değil, ama Marbelous eğlencelidir. :)

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

Bu, girişi ilk komut satırı argümanından tek bir tam sayı olarak okuyan bir programdır. Girişin modulo 256 alındığını, ancak bunun 255'ten büyük girişler için sonucun geçerliliğini etkilemediğini unutmayın, çünkü 256 4 ile bölünebilir.

açıklama

Marbelous, bir grup cihazdan düşen "mermerleri" (bayt değerleri) simüle eden 2B programlama dilidir. Tahta, misketleri işleyebilen 2 karakterlik geniş hücrelerden (aygıtlar) oluşur. Bir tahtanın altından düşen her şey STDOUT'a yazdırılır.

Kullanılan cihazları inceleyelim:

• }0ilk komut satırı argümanının gittiği yerdir. Bu cihazın iki örneğini kullandım, bu yüzden giriş değerinin iki kopyasını aldım (aynı anda).
• ^ndenetler n(giriş mermer inci biti n=0anlamlı bit azından) ve üreten 1ya da 0bit bağlı olarak değişebilir.
• =0eşitliği denetler 0. Giriş mermeri eşit ise, doğrudan düştü, değilse sağa doğru itilir.
• \/ bir çöp tenekesidir, bu nedenle yalnızca giriş mermerini yutar ve hiçbir şey üretmez.
• 2DASCII kodu -, 31ASCII kodu 1ve 69ASCII kodudur i.
• &nSenkromeçler vardır. Senkronizatörler, aynı senkronizatörler bir mermer tutuncaya kadar bir mermer durur n, bu noktada depolanan mermerlerinin düşmesine izin verir.

Aslında, yaptığım şey, üç ilgili karakterin üç senkronizatörde tutulması ve girişte en az anlamlı bitlerin nasıl ayarlandığına bağlı olarak bunları serbest bırakmak.

Daha fazla bilgi için teknik taslağa bakınız .

JavaScript (ES6) 29-5 = 24

Negatif gücü destekler.

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

ES5:

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

Python 28 bayt - 5 = 23

-Ve girişleri destekler.

Lambda işlevlerinin kabul edilebilir olduğunu varsayarak (Teşekkürler FryAmTheEggman!):

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

aksi takdirde 31 bayt - 5 = 26

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

(Emacs) Lisp - 34

Sadece eğlence için, (Emacs) Lisp:

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

Kullanmak istiyorsanız, bir kullanın defunveya kullanın 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 karakter - 15 bonus = puan -7

Yerleşik (ve bu nedenle yasaklanmış) işlev 0J1*⊢, ancak bu @ blutorange yöntemini kullanır .

¯12○.5×○

Meydan yazarı Kezz101 şunları yazdı :

Herhangi bir gerçek sayıyı destekliyorsanız, geçerli bir karmaşık biçimde çıktı alabilirsiniz.

Bu aJb, APL'nin karmaşık sayıları göstermesi için normal yol olan biçimde karmaşık bir sayı döndürür .

Çevrimiçi deneyin!

açıklama

¯12○ açısı radyan cinsinden olan birim vektörü bulmak

.5× bir buçuk kez

○ argüman 𝜋 (daire sabiti) ile çarpılır

Saf bash, 29 bayt - 5 = 24

-Ve girişleri destekler.

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*' +,,@

Negatif tamsayıları destekler. Bu çözümle herhangi bir ödül kazanamayacaksınız, ama her neyse.

Sadece girdi olarak kabul edilen bir sayıyı kabul eder, (hileli bir şekilde, test etmek için kullandığım tercümandaki negatif sayılar için normal sayı gibi çalışmayan) modülde bazı hileler yapar ve negatifler için çalışmak için bazı aptal şartlamalar yapar. Her karakterin ne olacağına karar ver.

Bunun daha fazla golf oynayabileceğinden eminim. Şimdilik, negatifleri kabul etmeyen, ancak ikramiyeyi daha kısa tutarak kaybettiren başka bir çözüm:

Befunge-98, 32 26 23

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

Düzenleme - Şimdi "-" öğesinin "" karakterinden 13 (0xd) karakter uzakta olmasından yararlanır.

Düzen 2 - Şimdi, yine, "i" nin '8"1" den 56 (0x38 veya veya ) karakter uzakta olması gerçeğinden faydalanır .

Java 8 Puanı: 72

Java'da şimdiye kadarki en kötü golf dili! golfed:

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

Expanded:

class Complex{

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

}

Not: Java 8'e alışkın değilim. Ayrıca henüz çalışma zamanım yok Lütfen sözdizimi hataları varsa bana bildirin. Bu da benim ilk golf.

Düzenleme: Kaldırıldı import.

Düzenleme: Kaldırılan sınıf bildirimi.

Skorlu bir başka cevap = 87 - 15 = 72

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

Expanded:

class Complex{

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

}

MATLAB, 33 bayt - 5 = 28

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

Birkaç byte daha fazla olmasına rağmen (37-5 = 32), bu yaklaşımı daha çok seviyorum:

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);}

Ruslan sayesinde iyileştirildi

C 74-5 = 69

Oh ve tabii ki en açık yaklaşım

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);;

Ödüllü bir çözüm değil, ancak bu ilk defa kod-golf'üm, bu yüzden ne yaptığımdan tam olarak emin değilim. Desen eşleştirmeyi kullanmaya çalıştım, ama bu beni 58'den fazla aldı.

Pari / GP , 19 bayt - 5 = 14

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

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

iBurada sadece bir sembol değil, (bir sanal birim IPari / GP).

Çevrimiçi deneyin!

Yakut 32-5 = 27

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

Negatif güçler için çalışıyor!

Perl, 26 - 5 = 21

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

bağımsız bir program (komut satırındaki argüman) veya bir işlevin gövdesi olarak çalışır.

Java: 151 131-5 = 126

golfed:

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");}}

Ungolfed:

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");
    }
}

Bir fonksiyon olarak: 72-5 = 67

golfed:

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

Ungolfed:

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

Evet, başka bir Java cevabı - ve hiç olmadığı kadar kötü bir şekilde golf oynadı. Ama elinden geleni yapıyorsun.

EDIT : işlev sürümü eklendi.

EDIT 2 : biraz deneme yanılma sonra, döngü kaçamak keşfetmeden, kitap tarafından yapmaya çalışan bir sürüm. Yani…

Değer hesaplamalı Java: 146-15 = 131

golfed:

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");}}

Ungolfed:

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");
    }
}

(en azından, sanırım en yüksek bonusu talep edebilirim, başka türlü düzeltebilirim)

Python - 31

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

Python'u daha yeni yeni öğrenmeye başladım. İyi olmadığını bilmeme rağmen, yapabileceğimin en iyisi.

Haskell GHCi, 29 Bayt - 15 = 14

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

Kullanımı:

*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 bayt

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

Çevrimiçi deneyin!

Yukarıdaki yöntemlerin çoğunda olduğu gibi, 4'lük bir modülo alır ve R'nin dizileri 1 indeksli olduğundan 1 ile artar. Negatif tamsayılar için de çalışır.

Buradaki karışık çıktılar için endişelendim ama Giuseppe, R'nin sayısal türleri, karıştırıldığında string türlerine zorladığına dikkat çekti.

PowerShell , 28 bayt -5 = 23

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

Çevrimiçi deneyin!

Tüm döngüsel indeksleme portu

Haskell, 29 bayt - 5 = 24

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

Negatif güçler için çalışıyor.

Sorunsuz bir sürümü çalıştı, ancak aslında daha uzun olduğu ortaya çıktı.

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

Clojure ( 64 54 31 karakter)

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

Düzenle

@ SeanAllred'in önerisine göre, işte caseişlev yerine değişmez vektör kullanan bir sürüm :

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

Düzenle 2

Elde edilen koleksiyonu yazdırmak için REPL'e güvenerek ve #()kısayolu kullanarak işlevi kodlayarak,

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

(Bu aslında çok daha fazla olan Clojure / Lisp-ish işlevi artık üretilen sonucu döndürür, fonksiyonun olduğu gibi kullanılmasına izin verir map.

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

hangi yazdırır

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

Paylaş ve Keyfini çıkar.

Groovy: 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)bir karakterden daha kısa, ancak kesin cevaplarla ilgilenmiyor. Tabii ki n->I^n, izin verilmeyen ve muhtemelen de PARI's powIs.

Jöle , 2 - 20 = -18 bayt

ı*

Çevrimiçi deneyin!

Bir i ^ xyerleşik kullanmaz, ancak bunun için yerleşik kullanır 1jve **izin verilip verilmediğinden emin değil.

05AB1E , skor 5 (10 bayt - 5 bonus)

'i®„-i1)Iè

Çevrimiçi deneyin veya bazı test durumlarını doğrulayın .

Açıklama:

'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)