Programmation Puzzles & Code Golf

9
Hungry Blobs KoTH

Concours terminé! Lisez les commentaires sur les blobs pour voir leur score. Ce KoTH est vaguement inspiré par la simulation de sélection naturelle de Primer . Votre bot est un blob. Pour survivre, vous devez manger des boulettes pour regagner de l'énergie, qui est utilisée pour se déplacer. Avec...

9
Ordre du dictionnaire nord-coréen

L'objectif Étant donné une chaîne de syllabes Hangul, triez les caractères dans l'ordre du dictionnaire nord-coréen. Introduction aux syllabes Hangul Hangul (한글) est le système d'écriture coréen inventé par Sejong le Grand. Les syllabes Hangul sont attribuées au point Unicode U + AC00 - U + D7A3....

8
Connect-4 partiellement observable

Le jeu Vous jouerez à un jeu (presque) standard de Connect-4 . Malheureusement, c'est un jeu de correspondance et quelqu'un a placé du ruban noir sur chaque deuxième rangée en partant du bas, de sorte que vous ne pouvez voir aucun des mouvements de votre adversaire dans ces rangées. Tout mouvement...

7
Brachylog , 12 octets

Méduse , 12 11 9 octets \P$'* i Essayez-le en ligne! Explication Le programme ci-dessus est équivalent au pseudocode fonctionnel suivant: \ P $ i '* map_prefixes(print, reshape(input(), '*')) Le $(refaçonner) crée une chaîne d' Nastérisques. \Pcrée une fonction qui prend une liste (ou une chaîne)...

6
Entraine toi

C, 450 caractères Modifier: supprimé zero Modifier: utiliser uniquement plusetminus J'ai recherché l'expression la plus courte qui ajoute des caractères et maintient la condition vraie. J'ai trouvé plus ten plus fiveest long de 15 et ajoute 15 à la chaîne. Je n'ai besoin que d'expressions pour les...

6
NASM x86_64 - 349 283 octets

Fichier .COM MS-DOS, 56 octets Voici le contenu du fichier en hexadécimal: 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 Le code assembleur correspondant ressemble à ceci: mov...

5
Python 3.5, 135 octets

CJam ( 39 37 octets) A,1>e!{5ew{2Mtz}2*::+)-!},3f/Ma*Sf*N* Démo en ligne (avertissement: l'exécution peut prendre plus d'une minute, ce qui déclenche les invites "Abandonner ce script?" À partir du navigateur). Fonctionne en filtrant toutes les grilles possibles à l'aide 5ewde la carte [a b c d...

4
> <>, 21 19 octets

> <>, 21 19 octets 'rd3*70.r l?!;o90.< Essayez-le ici! Utilise l'interpréteur *> <> pour plus de commodité, mais c'est un code> <> valide. Si l'erreur est autorisée, cela peut être fait en 16 octets: 'd3*}70.!r !|o| Essayez-le

4
Java 8, 485 octets

Java 8, 485 octets Pourrait réduire de 5 octets supplémentaires en nommant la fonction dau lieu de divideou 16 octets supplémentaires si la définition de classe n'est pas comptée. 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...

3
Haskell, 183

199 caractères dans Octave: 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)))))

3
C, 320 294 octets

C, 320 294 octets Compiler avec -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...

2
Python 136

Python 136 Je suis sûr que quelqu'un peut faire mieux - je n'ai jamais utilisé Tkinter auparavant. En particulier, je parie que le l.pack()et l["text"]peut être évitable. Golfé from Tkinter import* from datetime import datetime as d r=Tk() l=Label(r) l.pack() while 1:

2
MATL , 25 octets

MATL , 25 octets Cela fonctionne pour l'entrée jusqu'à 16: 10,i:^9/Y[t0)Yftb!w\~s1=) La version suivante utilise 31 octets et fonctionne jusqu'à 18. Car 19il nécessite environ 4 Go de mémoire (je n'ai pas pu l'exécuter). 10,i:^9/Y[t0)5X2Y%Yfotb!w\~s1=) Exemple >> matl >...

2
R , 84 77 octets

R , 84 77 octets -7 octets grâce à mb7744 unique(lapply(x<-sort(table(scan()),T),function(y)as.double(names(x[x==y])))) Lit à partir de stdin; renvoie une liste avec des sous-vecteurs d'entiers dans l'ordre croissant. Si nous pouvions renvoyer des chaînes au lieu d'entiers, je pourrais supprimer...

2
Rétine , 74 octets

Rétine , 74 octets _18¶/ 18\-| 18|-| 18|-\_9 3_4% % %/ - ¶-20¶ % /¶ 10| \d+ $* +`(.)1 $1$1 Essayez-le en

1
MuPAD 113 - 8 = 105

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))))) Cette version imprimera également toutes les permutations de chaque solution: 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 ... Et oui, cela...

1
Perl 5 , 52 + 1 ( -n) = 53 octets

Wolfram Language (Mathematica) , 55 octets ""<>#&/@Union@Tuples[{#,ToUpperCase@#}]&@*Characters Essayez-le en ligne! est l'opérateur de transposition (et s'affiche en exposant T dans