O calendário Mel é usado no mundo fictício de Kaldia. Seu objetivo é converter datas no calendário Mel. Este calendário tem 13 meses de 28 dias cada, mais 1 ou 2 dias extras após o último mês. Um ano que é divisível por 4, mas não por 100, ou divisível por 400 tem 366 dias, e outros anos têm 365...
Escreva uma função (ou macro) que retorne true se e somente se pelo menos um de seus argumentos contiver uma chamada para a própria função e false caso contrário . Por exemplo: int a=function(); //a==false int b=function(0); //b==false int c=function(function(0)); //c==true int...
Água-viva , 12 11 9 bytes \P$'* i Experimente online! Explicação O programa acima é equivalente ao seguinte pseudocódigo funcional: \ P $ i '* map_prefixes(print, reshape(input(), '*')) O $(remodelar) cria uma sequência de Nasteriscos. \Pcria uma função que pega uma lista (ou string) e...
História de fundo Não é realmente real, sshh! Tudo começou um dia quando um colega de trabalho trouxe um pedaço de pão caseiro para o aniversário do meu chefe. Meu chefe gostava muito desse pão e queria outro. Infelizmente, meu colega de trabalho parou, então meu chefe precisa que eu dê outro...
C, 450 caracteres Editar: removido zero Editar: usando apenas pluseminus Procurei a expressão mais curta que adiciona caracteres e mantém a condição verdadeira. Eu descobri que plus ten plus fivetem 15 anos e acrescenta 15 à string. Eu preciso apenas de expressões para os 15 primeiros números...
Existe um jogo cerebral chamado Enumerate (que eu criei , baseado em Takuzu ). Seu desafio é jogar este jogo. Tarefa Resolver um jogo de 4x4 Enumerate / Takuzu. Receba uma grade inicial via STDIN ou linha de comando. Saída da grade resolvida via STDOUT ou gravando no arquivo. Regras Um...
Arquivo .com do MS-DOS, 56 bytes Aqui o conteúdo do arquivo em 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 O código do assembler correspondente é assim: mov...
CJam ( 39 37 bytes) A,1>e!{5ew{2Mtz}2*::+)-!},3f/Ma*Sf*N* Demonstração on-line (aviso: pode levar mais de um minuto para ser executado, acionando as solicitações "Interromper este script?" No navegador). Funciona filtrando todas as grades possíveis usando 5ewpara mapear [a b c d e f g h...
> <>, 21 19 bytes 'rd3*70.r l?!;o90.< Experimente aqui! Usa o intérprete *> <> por conveniência, mas este é um código> <> válido. Se o erro for permitido, isso poderá ser feito em 16 bytes: 'd3*}70.!r !|o| Experimente
Java 8, 485 bytes Pode reduzir em mais 5 bytes nomeando a função em dvez de divideou em outros 16 bytes se não contar a definição de classe. 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
Tela , 5 4 bytes ║Ｑ↷↷ Resposta do First Canvas, então vamos começar com uma resposta fácil. :) -1 byte graças a @dzaima . As barras são convertidas automaticamente ao espelhar ou girar no Canvas. Poderia ter 1 byte ╬( Experimente on-line ), mas infelizmente também transforma os pontos .em...
199 caracteres no 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
C, 320 294 bytes Compilar com -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 Tenho certeza de que alguém pode fazer isso melhor - nunca usei o Tkinter antes. Em particular, aposto que l.pack()e l["text"]pode ser evitável. Golfe 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 bytes Isso funciona para entrada até 16: 10,i:^9/Y[t0)Yftb!w\~s1=) A versão a seguir usa 31 bytes e funciona até 18. Para 19isso, requer cerca de 4 GB de memória (não consegui executá-lo). 10,i:^9/Y[t0)5X2Y%Yfotb!w\~s1=) Exemplo >> matl >
R , 84 77 bytes -7 bytes graças a mb7744 unique(lapply(x<-sort(table(scan()),T),function(y)as.double(names(x[x==y])))) Lê de stdin; retorna uma lista com subvetores de números inteiros em ordem crescente. Se pudéssemos retornar strings em vez de ints, eu poderia eliminar 11 bytes (removendo...
Retina , 74 bytes _18¶/ 18\-| 18|-| 18|-\_9 3_4% % %/ - ¶-20¶ % /¶ 10| \d+ $* +`(.)1 $1$1 Experimente
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 versão também imprimirá todas as permutações de todas as soluções: 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 ... E sim, ele cria...
Wolfram Language (Mathematica) , 55 bytes ""<>#&/@Union@Tuples[{#,ToUpperCase@#}]&@*Characters Experimente online! é o operador de transposição (e é exibido como um T sobrescrito no