Соревнование

В минимально возможном количестве символов найдите значение i ^ n, если n положительное целое число больше 0. Это должно быть выведено в виде строки.

Для тех, кто не знает, я определен так, что я ^ 2 = -1. Так:

• я ^ 1 = я
• я ^ 2 = -1
• я ^ 3 = -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].)

Поддерживает реал и дает точные результаты для целочисленного ввода.

Обратите внимание, что iэто не комплекс Mathematica i (который есть I). Это просто неопределенная переменная.

Кроме того, несмотря на порядок выражения, Mathematica переупорядочит вывод в R+Ciформу.

Python 2 - (24-5) = 19

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

Большая часть кредита принадлежит @ user2357112, я просто отыграл его ответ из комментариев к этому ответу немного больше.

Объяснение: Начинается с индекса n%4в строке '1i--'. Затем выполняется итерация в обратном порядке шагами по две над каждой буквой в строке. Так, например, n=6сначала начинается с индекса 2 -, затем пропускается iи принимается 1, чтобы вернуться -1.

@xnor указал решение той же длины:

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

Пиф - (14-5) = 9

Я могу только получить 14, независимо от того, как я пытаюсь повернуть вспять / разрезать / и т.д. : '(

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

По сути, это то же самое, что и приведенный выше ответ python, но в 2 этапа, потому что pyth не поддерживает полные параметры индексации python. Попробуйте онлайн.

Я собираюсь поговорить с isaacg об индексации Pyth;)

TI-BASIC (NSpire) - 5 (20 символов-15)

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

Если вы хотите получить сложное возвращаемое значение, замените iв конце на (complex i).

Marbelous , 43 байта

Не совсем победитель, но Марбелоус - это весело. :)

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

Это программа, которая читает входные данные как одно целое число из первого аргумента командной строки. Обратите внимание, что ввод берется по модулю 256, но это не влияет на достоверность результата для входов больше 255, потому что 256 делится на 4.

объяснение

Marbelous - это двумерный язык программирования, который имитирует "шарики" (байтовые значения), падающие через множество устройств. Доска состоит из двухсимвольных ячеек (устройств), которые могут обрабатывать шарики. Все, что падает с нижней части доски, печатается на STDOUT.

Давайте рассмотрим используемые устройства:

• }0где первый аргумент командной строки идет. Я использовал два экземпляра этого устройства, поэтому я получаю две копии входного значения (одновременно).
• ^nпроверяет nбит входного мрамора (где n=0младший бит) и производит 1или 0зависит от бита.
• =0проверяет равенство с 0. Если входной мрамор равен, он просто падает прямо через, если это не так, он толкается вправо.
• \/ это мусорное ведро, поэтому он просто проглатывает входной мрамор и никогда ничего не производит.
• 2Dявляется ASCII код -, 31является ASCII код 1и 69является ASCII код i.
• Это &nсинхронизаторы. Синхронизаторы останавливают мрамор до тех пор, пока все синхронизаторы с одним и тем же не nудержат мрамор, и в этот момент все они позволят провалиться хранящемуся мрамору.

Таким образом, по сути, я держу три соответствующих символа в трех синхронизаторах и освобождаю их в зависимости от того, как младшие биты установлены на входе.

Для получения дополнительной информации см. Проект спецификации .

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

Поддерживает -ве входы.

Предполагая, что лямбда-функции приемлемы (спасибо FryAmTheEggman!):

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

в противном случае 31 байт - 5 = 26

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

(Emacs) Лисп - 34

Просто для удовольствия, в (Emacs) Lisp:

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

Если вы хотите использовать его, используйте defunили используйте 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 .

¯12○.5×○

Автор вызова, Kezz101, написал :

Если вы поддерживаете любое действительное число, вы можете вывести его в любой действительной сложной форме

Это возвращает комплексное число в форме, aJbкоторая является нормальным способом для APL отображать комплексные числа.

Попробуйте онлайн!

объяснение

¯12○ найти единичный вектор, который имеет угол в радианах

.5× полтора раза

○ аргумент, умноженный на 𝜋 (константа круга)

Чистый bash, 29 байт - 5 = 24

Поддерживает -ве входы.

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 - Теперь, опять же, используется тот факт, что «я» 56 символов (0x38 или '8) от «1».

Java 8 Оценка: 72

На Яве самый худший язык в гольф! 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]};

}

Примечание: я не привык к 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"};

Expanded:

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

Улучшено благодаря Руслану

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

Пари / ГП , 19 байт - 5 = 14

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

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

iЗдесь просто символ, а не мнимая единица (которая находится Iв Pari / 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

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

Как функция: 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");
}

Да, еще один ответ Java - и игра в гольф еще хуже, чем когда-либо. Но вы работаете с тем, что вы можете ...

РЕДАКТИРОВАТЬ : добавлена ​​версия функции.

РЕДАКТИРОВАТЬ 2 : так, после небольшого проб и ошибок, вот версия, которая пытается сделать это по книге, не исследуя лазейку цикла. Так…

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

(по крайней мере, я думаю, что могу претендовать на главный бонус, поправьте меня иначе)

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]

Попробуйте онлайн!

То же самое, что и большинство методов выше, принимает модуль по 4 и увеличивает его на 1, потому что массивы R индексируются 1. Работает и для отрицательных целых чисел.

Я беспокоился о смешанных выводах здесь, но Джузеппе указал, что 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-ish, так как функция теперь фактически возвращает сгенерированный результат, позволяя использовать функцию 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")

Поделитесь и наслаждайтесь.

Groovy: 27-5 = 22

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

С 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)на один символ короче, но не обрабатывает точных ответов. Конечно, n->I^nне разрешено, и, вероятно, также PARI powIs.

Желе , 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)