Файл MS-DOS .COM, 56 байт Вот содержимое файла в шестнадцатеричном формате: b4 09 ba 2c 01 cd 21 b2 2f e8 11 00 b2 2d e8 0c 00 b2 5c e8 07 00 b2 7c e8 02 00 eb ea b4 02 cd 21 b2 08 cd 21 b9 05 00 f4 e2 fd c3 4c 6f 61 64 69 6e 67 2e 2e 2e 20 24 Соответствующий ассемблерный код выглядит так: mov ah,...
CJam ( 39 37 байт) A,1>e!{5ew{2Mtz}2*::+)-!},3f/Ma*Sf*N* Демонстрация в сети (предупреждение: запуск может занять более минуты, при этом в браузере выводится сообщение «Abort this script?»). Работает путем фильтрации всех возможных сеток, используя 5ewкарту [a b c d e f g h i] в [[a b c d e] [b...
><>, 21 19 bytes 'rd3*70.r l?!;o90.< Try it here! Uses the *><> interpreter for convenience, but this is valid ><> code. If erroring out is allowed, then it can be done in 16 bytes: 'd3*}70.!r !|o| Try it
Java 8, 485 байт Может быть уменьшен еще на 5 байтов, называя функцию dвместо divideили еще на 16 байтов, если не считать определение класса. public class G{int l(String a){return a.length();}String s(String n,String m){while(l(n)>l(m))m=0+m;String a="";for(int...
199 символов в октаве: m=@(x)mod(x,1928049029);[d,l]=scanf('%d');c=d(1);e=repmat(int64(d(2:2:l)),1,c);[_,b]=gcd(e-e',1928049029*ones(c));b=eye(c)+m(e.*b);x=b(1,:);for i=2:c;x=m(x.*b(i,:));end;disp(m(sum(m(x'.*d(3:2:l)))))
C 320 294 байта Компилировать с -std = c99 #include<stdio.h> int s(int i){for(int j=i;j;j/=10)i+=j%10;return i;}int main(){int c=0,i;while(scanf("%d",&i)){c++;if(!i)continue;int j,o[]={1,3,9},p[]={1,3,9};Q:for(j=0;j<3;j++){if(o[j]==i)goto D;else if(o[j]<i){o[j]=s(o[j]);goto...
Python 136 Я уверен, что кто-то может сделать это лучше - я никогда раньше не использовал Tkinter. В частности, я держу пари, l.pack()и l["text"]можно избежать. Golfed from Tkinter import* from datetime import datetime as d r=Tk() l=Label(r) l.pack() while 1: l["text"]=d(2013,12,25)-d.now()...
MATL , 25 байт Это работает для ввода до 16: 10,i:^9/Y[t0)Yftb!w\~s1=) Следующая версия использует 31 байт и работает до 18. Для 19этого требуется около 4 ГБ памяти (я не смог его запустить). 10,i:^9/Y[t0)5X2Y%Yfotb!w\~s1=) пример >> matl > 10,i:^1-,9/t0)5X2Y%Yfotb!w\~s1=) > > 6 7 13...
R , 84 77 байт -7 байт благодаря mb7744 unique(lapply(x<-sort(table(scan()),T),function(y)as.double(names(x[x==y])))) Читает со стандартного ввода; возвращает список с подвекторами целых чисел в возрастающем порядке. Если бы мы могли возвращать строки вместо целых, то я мог бы отбросить 11...
Сетчатка , 74 байта _18¶/ 18\-| 18|-| 18|-\_9 3_4% % %/ - ¶-20¶ % /¶ 10| \d+ $* +`(.)1 $1$1 Попробуйте
MuPAD 113 - 8 = 105 g:=[0,ithprime(i)$i=1..n]:f:=_for_in:f(l,g,f(d,g,f(b,g,f(a,g,f(c,g,if l+d+b+a+c=n then print(l,d,b,a,c)end))))) Эта версия также напечатает все перестановки каждого решения: 0, 0, 0, 0, 7 0, 0, 0, 2, 5 0, 0, 0, 5, 2 0, 0, 0, 7, 0 0, 0, 2, 0, 5 ... И да, это создает слишком...
Wolfram Language (Mathematica) , 55 байтов ""<>#&/@Union@Tuples[{#,ToUpperCase@#}]&@*Characters Попробуйте онлайн! является оператором транспонирования (и отображается как верхний индекс T в...