C, 450 znaków Edycja: usunięto zero Edycja: używając tylko plusiminus Szukałem najkrótszego wyrażenia, które dodaje znaki i utrzymuje warunek prawdziwy. Znalazłem plus ten plus five15 długich i dodaje 15 do łańcucha. Potrzebuję tylko wyrażeń dla pierwszych 15 liczb, które nie są niemożliwe, aby...
Plik MS-DOS .COM, 56 bajtów Tutaj zawartość pliku w systemie szesnastkowym: 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 Pasujący kod asemblera wygląda następująco: mov...
CJam ( 39 37 bajtów) A,1>e!{5ew{2Mtz}2*::+)-!},3f/Ma*Sf*N* Demo online (ostrzeżenie: uruchomienie może potrwać minutę, powodując wyświetlenie w przeglądarce komunikatów „Przerwać ten skrypt?”). Działa poprzez filtrowanie wszystkich możliwych siatek za pomocą 5ewmapowania [a b c d e f g h...
> <>, 21 19 bajtów 'rd3*70.r l?!;o90.< Wypróbuj tutaj! Dla wygody korzysta z interpretera *> <>, ale jest to poprawny kod> <>. Jeśli błąd jest dozwolony, można to zrobić w 16 bajtach: 'd3*}70.!r !|o| Wypróbuj
Java 8, 485 bajtów Można zmniejszyć o kolejne 5 bajtów nazywając funkcję dzamiast dividelub o kolejne 16 bajtów, jeśli nie licząc definicji klasy. 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...
Płótno , 5 4 bajtów ║Ｑ↷↷ Pierwsza odpowiedź Canvas, więc zacznijmy od łatwej. :) -1 bajt dzięki @dzaima . Ukośniki są automatycznie konwertowane podczas tworzenia kopii lustrzanej lub obracania na kanwie. Może to być 1 bajt ╬( Wypróbuj online ), ale niestety przekształca kropki .w pojedyncze...
199 znaków w oktawie: 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
Awk, 101 + 8 bajtów 101 znaków plus 8 dla -v n=$1uzyskania liczby całkowitej z powłoki. '{l="\\ \\";print"__\n"l"\n "l;for(i=1;i<n;++i)print"__"l"\n\\ __\\\n "l}END{print" "l"\n \\/"}' Nowość w tej witrynie SE, niejasne, czy te parametry powinny się liczyć. Bez golfa awk -v n=$1 '{ l="\\...
C, 320 294 bajtów Skompiluj z -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...
MATL , 25 bajtów Działa to dla danych wejściowych do 16: 10,i:^9/Y[t0)Yftb!w\~s1=) Następująca wersja wykorzystuje 31 bajtów i działa do 18. Dla 19wymaga około 4 GB pamięci (nie udało się go uruchomić). 10,i:^9/Y[t0)5X2Y%Yfotb!w\~s1=) Przykład >> matl >...
R , 84 77 bajtów -7 bajtów dzięki mb7744 unique(lapply(x<-sort(table(scan()),T),function(y)as.double(names(x[x==y])))) Czyta ze standardowego; zwraca listę z wektorami liczb całkowitych w porządku rosnącym. Jeśli moglibyśmy zwrócić ciągi zamiast ints, to mógłbym upuścić 11 bajtów (usuwając...
Retina, 74 bytes _18¶/ 18\-| 18|-| 18|-\_9 3_4% % %/ - ¶-20¶ % /¶ 10| \d+ $* +`(.)1 $1$1 Try it
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))))) Ta wersja wydrukuje również wszystkie permutacje każdego rozwiązania: 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 ... I tak, tworzy...
Wolfram Language (Mathematica) , 55 bajtów ""<>#&/@Union@Tuples[{#,ToUpperCase@#}]&@*Characters Wypróbuj online! jest operatorem transpozycji (i wyświetla się jako indeks górny T w