El calendario Mel se usa en el mundo ficticio de Kaldia. Su objetivo es convertir las fechas en el calendario Mel. Este calendario tiene 13 meses de 28 días cada uno, más 1 o 2 días adicionales después del último mes. Un año que es divisible por 4 pero no por 100, o divisible por 400 tiene 366...
Escriba una función (o macro) que devuelva verdadero si y solo si al menos uno de sus argumentos contiene una llamada a la función misma y falso en caso contrario . Por ejemplo: int a=function(); //a==false int b=function(0); //b==false int c=function(function(0)); //c==true int...
Medusa , 12 11 9 bytes \P$'* i Pruébalo en línea! Explicación El programa anterior es equivalente al siguiente pseudocódigo funcional: \ P $ i '* map_prefixes(print, reshape(input(), '*')) El $(remodelar) crea una cadena de Nasteriscos. \Pcrea una función que toma una lista (o cadena) y...
Trasfondo No es realmente real, sshh! Todo comenzó un día cuando un compañero de trabajo trajo una hogaza de pan casera para el cumpleaños de mi jefe. A mi jefe realmente le gustaba esta barra de pan, y quería otra. Por desgracia, mi compañero de trabajo ha dejar de fumar, por lo que mi jefe...
C, 450 caracteres Editar: eliminado zero Editar: usando solo plusyminus Busqué la expresión más corta que agregue caracteres y mantenga la condición verdadera. Encontré plus ten plus five15 largos y agrega 15 a la cadena. Solo necesito expresiones para los primeros 15 números que no son...
Existe un juego mental llamado Enumerate (que hice, basado en Takuzu ). Tu desafío es jugar este juego. Tarea Resuelve un juego de 4x4 Enumerate / Takuzu. Reciba una grilla inicial a través de STDIN o línea de comando. Salida de la cuadrícula resuelta a través de STDOUT o escribiendo en el...
Archivo .COM de MS-DOS, 56 bytes Aquí el contenido del archivo en hexadecimal: 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 El código del ensamblador correspondiente se ve...
CJam ( 39 37 bytes) A,1>e!{5ew{2Mtz}2*::+)-!},3f/Ma*Sf*N* Demostración en línea (advertencia: puede tardar más de un minuto en ejecutarse, activando las indicaciones "¿Abortar este script?" Desde el navegador). Funciona filtrando todas las cuadrículas posibles usando 5ewpara mapear [a b c d...
> <>, 21 19 bytes 'rd3*70.r l?!;o90.< Pruébalo aquí! Utiliza el intérprete *> <> por conveniencia, pero este código es válido> <>. Si se permite la eliminación de errores, se puede hacer en 16 bytes: 'd3*}70.!r !|o| Pruébalo
Java 8, 485 bytes Podría reducir otros 5 bytes nombrando la función en dlugar de divideotros 16 bytes si no cuenta la definición de clase. 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
Lienzo , 5 4 bytes ║Ｑ↷↷ Primera respuesta de Canvas, así que comencemos con una fácil. :) -1 byte gracias a @dzaima . Las barras inclinadas se convierten automáticamente al reflejar o girar en Canvas. Podría haber sido 1 byte ╬( Pruébelo en línea ), pero desafortunadamente también transforma...
199 caracteres en octava: 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
C, 320294 bytes Compilar con -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 bytes Esto funciona para entradas de hasta 16: 10,i:^9/Y[t0)Yftb!w\~s1=) La siguiente versión usa 31 bytes y funciona hasta 18. Para 19ello requiere aproximadamente 4 GB de memoria (no he podido ejecutarlo). 10,i:^9/Y[t0)5X2Y%Yfotb!w\~s1=) Ejemplo >> matl >...
R , 84 77 bytes -7 bytes gracias a mb7744 unique(lapply(x<-sort(table(scan()),T),function(y)as.double(names(x[x==y])))) Lee de stdin; devuelve una lista con subvectores de enteros en orden creciente. Si pudiéramos devolver cadenas en lugar de ints, podría eliminar 11 bytes (eliminando la...
Retina , 74 bytes _18¶/ 18\-| 18|-| 18|-\_9 3_4% % %/ - ¶-20¶ % /¶ 10| \d+ $* +`(.)1 $1$1 Pruébalo en
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))))) Esta versión también imprimirá todas las permutaciones de cada solución: 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 ... Y sí, crea una...
Wolfram Language (Mathematica) , 55 bytes ""<>#&/@Union@Tuples[{#,ToUpperCase@#}]&@*Characters Pruébalo en línea! es el operador de transposición (y se muestra como un superíndice T en