A soma é sempre 15

36

Escreva um programa ou função que use uma matriz de números inteiros não negativos como entrada e produza um conjunto de vetores / matrizes com os elementos da matriz de entrada em ordem, divida para que cada vetor totalize até 15. Se a soma do primeiro N elementos não "atingem 15", então o número que fez passar 15 deve ser cortado e o restante será o primeiro elemento do próximo vetor. Isso continua até você chegar ao final da matriz de entrada. Se a soma do vetor final for menor que 15, um número deverá ser adicionado no final para aumentar a soma.

Eu acho que as regras são mais facilmente entendidas olhando os exemplos:

Input: 3 7 5 10
Output:
3 7 5           <- Sum is 15
10 5            <- 5 is added to make the sum 15

Input: 2 4 5 9 2 3 5 0 2 4 5 0 3
Output:
2 4 5 4          <- Sum 15. 9 is split in two. 
5 2 3 5          <- The first 5 is the remainder of 9
0 2 4 5 0 3 1    <- The last number is added to make the sum 15

Input: 1 1 1            
Output:
1 1 1 12         <- The number 12 is added to make the sum 15

Input: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
Output:
1 2 3 4 5
6 7 2           <- 2 is the first part of 8
6 9             <- 6 is the remainder of 8
10 5            <- 5 is first part of 11
6 9             <- 6 is remainder of 11. 9 is first part of 12
3 12            <- 3 is remainder of 12. 12 is first part of 13
1 14            <- 1 is remainder of 13. 14 is 14
15
15              <- 15 is first part of 16
1 14            <- 1 is remainder of 16. 14 is first part of 17
3 12            <- 3 is remainder of 17. 12 is added to make the sum 15

Input: 20 20
Output:
15
5 10           <- 5 is remainder from the first 20
10 5           <- 10 is remainder from second 20. 5 is added to make the sum = 15.

O formato de entrada e saída é opcional. O que há de melhor no seu idioma.

O código mais curto em bytes vence.

Entre os melhores

O snippet de pilha na parte inferior desta postagem gera o catálogo a partir das respostas a) como uma lista da solução mais curta por idioma eb) como uma tabela geral de líderes.

Para garantir que sua resposta seja exibida, inicie-a com um título, usando o seguinte modelo de remarcação:

## Language Name, N bytes

onde Nestá o tamanho do seu envio. Se você melhorar sua pontuação, poderá manter as pontuações antigas no título, identificando-as. Por exemplo:

## Ruby, <s>104</s> <s>101</s> 96 bytes

Se você quiser incluir vários números no cabeçalho (por exemplo, porque sua pontuação é a soma de dois arquivos ou você deseja listar as penalidades do sinalizador de intérpretes separadamente), verifique se a pontuação real é o último número no cabeçalho:

## Perl, 43 + 2 (-p flag) = 45 bytes

Você também pode transformar o nome do idioma em um link que será exibido no snippet:

## [><>](http://esolangs.org/wiki/Fish), 121 bytes

Mostrar snippet de código

code-golf  math  arithmetic  array-manipulation 
— Stewie Griffin
fonte
'Formato de saída é opcional'. Isso significa que [[3, 7, 5], [10, 5]]seria uma saída válida para o primeiro caso de teste?
— Morgan Thrapp 02/12/2015
@MorganThrapp, sim. isso é válido.
— Stewie Griffin
1
@FlagAsSpam, adicionei mais explicações no exemplo que você está perguntando.
— Stewie Griffin
3
Bom caso de teste:Input: 100 Output: 15; 15; 15; 15; 15; 15; 10 5
— randomra
3
Definitivamente, isso deve substituir o teste do FizzBuzz
— CSᵠ

Respostas:

8

Pitão, 37 bytes

K15VQ=+ZNIgZK=-ZK-NZbIZZ)).?N;I>KZ-KZ

Explicado

K15              Store 15 in K (the max) (K is Autoinitializing, no = needed here)
VQ              For N in the evaluated input
  =+ZN           Set Z(Which in pyth defaults to 0) to Z+N
  IgZK           If Z(row total) is greater than or equal to K (row max)
    =-ZK         Set Z to Z-K (How much the max was exceeded)
    -NZ          Implicitly print N-Z
    b            Implicitly print b (in pyth defaults to a newline)
    IZ         If Z > 0 (There was excess to carry to the next row)
      Z          Implicitly print Z (the excess)
  .?N            Else(the current row count is < the max(15)) output the current number
;                Use infinite )'s in place of )) (to save 1 character)
I>KZ             If K > Z (The max is greater than the current row count)
  -KZ           Implicitly print K-Z (The amount needed for the row to equal 15)

Esta foi a minha primeira vez, então fique à vontade para sugerir melhorias.

Exemplo:

Entrada

[1, 3, 4, 5, 9, 8]

Saída

1
3
4
5
2


7
8

Nota: Muito obrigado a Isaacg por vários bytes de conselhos sobre redução de tamanho e criação de pyth em primeiro lugar! Voto por favor seus comentários abaixo :)

— csga5000
fonte
2
Outra coisa foi alterada recentemente para ser em .?vez de E, mas eu esqueci de atualizar os documentos. Me desculpe por isso.
— Isaacg
@isaacg Thanks isaacg! Eu deveria ter isso trabalhando agora. Embora ele economize apenas 1 byte, já que o resto tem 2 caracteres agora.
— csga5000
1
Consertando enquanto falamos.
— Isaacg 03/12
3
Algumas outras sugestões: =Z+ZNe =+ZNsão as mesmas. É um pouco como o Python +=. Likewiese, =Z-ZK-> =-ZK. Além disso, você não precisa )do final - ele é preenchido automaticamente. Finalmente, FNQe VQsão os mesmos.
— Isaacg 03/12
1
Você pode salvar outro byte de 2 substituindo I>Z0por IZ- Znão pode ser negativo; portanto, você está apenas verificando se Znão é zero e zero é falso, enquanto todos os outros números são verdadeiros.
— Isaacg
16

Java - 229 200 192 181 172 170 168 bytes

Já havia começado, não pela vitória, mas pela diversão :)
Qualquer sugestão é bem-vinda.

Economizou 8 bytes graças a @ThomasKwa
Economizou 20 bytes graças a @corsiKa
Economizou 2 bytes graças a @Ypnypn
Economizou 2 bytes graças a @ user902383

String p(int[]a){int c=0,j;String s="";f:for(int i:a){for(j=i;j-->0;)if(++c>14){s+=(i-j)+"\n";c=0;if(j<15){if(j>0)s+=j+" ";c+=j;continue f;}}s+=i+" ";}return s+(15-c);}

170 bytes

String p(int[]a){int c=0,j;String s="";f:for(int i:a){for(j=i;j-->0;){if(++c>14){s+=(i-j)+"\n";c=0;if(j<15){if(j>0)s+=j+" ";c+=j;continue f;}}}s+=i+" ";}return s+(15-c);}

172 bytes

String p(int[]a){int c=0,j;String s="";f:for(int i:a){for(j=i;j>0;){j--;if(++c>14){s+=(i-j)+"\n";c=0;if(j<15){if(j>0)s+=j+" ";c+=j;continue f;}}}s+=i+" ";}return s+(15-c);}

181 bytes

void p(int[]a){int c=0,j;String s="";f:for(int i:a){for(j=i;j>0;){j--;if(++c>14){s+=(i-j)+"\n";c=0;if(j<15){if(j>0)s+=j+" ";c+=j;continue f;}}}s+=i+" ";}System.out.print(s+(15-c));}

192 bytes

void p(int[]a){int c=0,j;String s="";f:for(int i:a){for(j=i;j>0;){j--;c++;if(c==15){s+=(i-j)+"\n";c=0;if(j>=15)continue;if(j>0)s+=j+" ";c+=j;continue f;}}s+=i+" ";}System.out.print(s+(15-c));}

200 bytes

void p(int[]a){int c=0,j;String s="";f:for(int i:a){j=i;while(j>0){j--;c++;if(c==15){s+=(i-j)+"\n";c=0;if(j>=15)continue;else{if(j!=0)s+=j+" ";c+=j;continue f;}}}s+=i+" ";}System.out.print(s+(15-c));}

229 bytes

void p(int[]a){int c=0,j;f:for(int i:a){j=i;while(j>0){j--;c++;if(c==15){System.out.print(i-j+"\n");c=0;if(j>=15){continue;}else{if(j!=0)System.out.print(j+" ");c+=j;continue f;}}}System.out.print(i+" ");}System.out.print(15-c);}

String p(int[] a) {
    int c = 0, j;
    String s = "";
    f: for (int i: a) {
        for (j = i; j-- > 0;)
            if (++c > 14) {
                s += (i - j) + "\n";
                c = 0;
                if (j < 15) {
                    if (j > 0) s += j + " ";
                    c += j;
                    continue f;
                }
            }
        s += i + " ";
    }
    return s + (15 - c);
}
— Yassin Hajaj
fonte
1
Uau, não tinha visto continuar realmente usado em um programa Java até agora.
— Magic Octopus Urn
7

Python 3 - 1̶7̶7̶ 1̶3̶8̶ 1̶6̶6̶ 1̶3̶3̶ 113

s=0
i=15
p=print
for e in eval(input()):
 if s>=i:p()
 s=s%i+e
 if s>i:s-=i;p(e-s);p();e=s
 p(e)
if s!=i:p(i-s%i)

Editar 5 Verdadeiramente jogado graças a @poke * quebras de linha removidas etc.

Editar 4 Impressão com alias e substituiu a = por a - = para salvar um byte. Graças a @poke e @elzell. Também moveu eval de entrada para o loop for para economizar 2 bytes da atribuição

Edit 3 Economias encontradas em diferentes OO dentro de segundos se

Edit 2 Fixed bug

Edit 1 Alterou a entrada para o formato '[1,2,3,4,5 ...]' e implementou os dois primeiros comentários, muito obrigado a @Morgan Thrapp

Pôster da primeira vez aqui. Entrada é linha de comando com entradas separadas por espaços, saída é entrada por linha, com uma nova linha entre agrupamentos.

— Adam Martin
fonte
3
Você pode reduzi-lo a 122 atribuindo 15 a uma variável e usando apenas um espaço para indentação.
— Morgan Thrapp
Além disso, você deixar o segundo caso de teste, eu recebo 2 3 5, mas deve ser 5 2 3 5.
— Morgan Thrapp
1
@AdamMartin Você pode estar interessado na minha versão do Pyth do seu código
— csga5000
1
Desde que você está usando printcom tanta frequência, você deve salvá-lo como uma variável: p=print. Economiza mais 14 caracteres.
— cutuca
2
A contagem atual é 132, mas você pode reduzi-la para 113 se remover algumas quebras de linha. Você pode combinar todos os if em uma única linha, por exemplo, if s>i:s-=i;p(e-s);p();e=spara a segunda. Isso economiza quebras de linha e caracteres de indentação.
— cutuca
7

Haskell, 126 107 102 100 bytes

[]#c=[]
(h:t)#c|s<0=t#u|s<1=u:t#[]|1<2=(c++[h-s]):(s:t)#[]where s=sum c+h-15;u=c++[h]
(#[]).(++[14])

Exemplo de uso: (#[]).(++[14]) $ [1..17]->[[1,2,3,4,5],[6,7,2],[6,9],[10,5],[6,9],[3,12],[1,14],[15],[15],[1,14],[3,12]]

Edit: @Stewie Griffin me ajudou a economizar 19 bytes. Obrigado!

— nimi
fonte
4

CJam, 39 bytes

q~0af*Sf*N*30/{S-N/:,F1$:+-+0+e`W<e~p}/

Teste aqui.

Isso parece muito abaixo do ideal, mas até agora todas as minhas tentativas de uma solução mais curta foram frustradas pela presença de zeros na entrada.

— Martin Ender
fonte
4

Python2 desenvolvido com RegEx : 158 155 bytes

Feito em python com amor e quase sem matemática.
Ou Regex Math, se preferir, matemática unária.
A matemática 'real' usada apenas para 'corrigir' o último requisito:

Se a soma do vetor final for menor que 15, um número deverá ser adicionado no final para aumentar a soma.

Codegolfed:

import re
def f(i):o=[map(len,p.split())for p in re.findall('((?:x *){15}|.+)',' '.join(['x'*c for c in i]))];l=sum(o[-1]);o[-1]+=([],[15-l])[l<15];print o

A maneira como isso funciona é convertendo cada número N em uma sequência de comprimento N ( x escolhido como o caractere para preencher a sequência) e juntando todos eles em um espaço separado string. A sequência resultante é dividida via RegEx BLACK MAGIC em algo como: 

['x xx xxx xxxx xxxxx ', 'xxxxxx xxxxxxx xx', 'xxxxxx xxxxxxxxx', 'x']

para uma entrada como: f([1, 2, 3, 4, 5, 6, 7, 8, 10])
Isso é dividido novamente, e o comprimento de xes consecutivos é usado para criar os números novamente, tudo bem embalado em uma compreensão de lista.

Ungolfed:

import re
o = [map(len, p.split()) for p in re.findall('((?:x *){15}|.+)', ' '.join(['x'*c for c in i]))]
l = sum(o[-1])
o[-1] += ([], [15-l])[l<15]
print o

Saída: 

>>> f([30, 1, 2, 3, 4, 5, 6, 7, 8, 9, 16])
[[15], [15], [1, 2, 3, 4, 5], [6, 7, 2], [6, 9], [15], [1, 14]]

Nota: não havia mágica suficiente para os 0s, então esta entrada desqualifica

zeros devem ser incluídos. Veja o segundo exemplo

— CSᵠ
fonte
Todos esses nomes de função são bastante caros. Torna o uso de algo como regex quase impossível no código de golfe. Ainda assim, o seu tamanho byte não é ruim, considerando
— csga5000
4

Sério, 88 bytes

,`'!*'0`M' j0╗`;;;'|ε35*('!=╜+;╗%(' =|('0=|I)`Mεj'|@s`ôl`╝`ö'0@s╛M`Md;Σ35*-;`X``@q`Iƒ@q.

Experimente online

É a minha primeira resposta a sério! Agora estou intimamente familiarizado com todas as deficiências da linguagem!

Hex Dump:

2c6027212a2730604d27206a30bb603b3b3b277cee33352a2827213dbd2b3bbb252827203d7c2827303d7c49
29604dee6a277c407360936c60bc609427304073be4d604d643be433352a2d3b60586060407160499f40712e

Explicação:

,`'!*'0`M' j         Replace all the numbers by "0"+"!"*n, separated by " "
0╗                   Initialize an accumulator in register 0
` ... `M             Map the string with the following function:
   ;;;'|ε                Put three extra copies of the character, a pipe, an empty string
   35*                   and a 15 on the stack.
   ('!=                  Move one copy of the character to the top and push 1 if it's a !
   ╜+                    Load the accumulator, add the 1 or 0 from the preceding test
   ;╗                    Make a copy, and save it back to register 0
   %                     Modulo the sum by 15
   (' =|                 Or the result with whether the dug-up character is " "
   ('0=|                 Or the result with whether the dug-up character is "0"
   I                     If we're at " " or "0" or the current sum is not divisible by 15,
                         push empty string, else push "|"
   )                     Bury the new character under the original character.
εj                   Join the list that resulted from the map into a single string.
'|@s                 Resplit the string on occurrences of "|" (after every 15 "!"s)
`ôl`╝                Store a function in register 1 which trims whitespace
                     and returns the length of the remaining string
` ... `M             Map the list with the following function:
   ö                     Trim leading spaces.
   '0@s                  Split the string on occurrence of "0"
   ╛M                    Map the resulting list with the function stored in register 1
d;                   Push the last sublist from the resulting list and make a copy.
Σ                    Find the sum of the list.
35*-                 Subtract it from 15
;`X``@q`Iƒ           Duplicate it, drop it if it's zero, put it in the list otherwise.
@q.                  Put the list back in the big list and print it.
— quintopia
fonte
Se forem usados ​​pontos de código Unicode, esses caracteres contam como 2 bytes cada? : P
— Dan
Estou usando o unicode na fonte representada para que possa ser lido da maneira como deve ser. Caso contrário, pareceria lixo aleatório cheio de imprimíveis. A fonte oficial é o despejo hexadecimal.
— quintopia 04/12/2015
Era para ser uma pergunta bem-humorada.
— Dan
1
Também era uma pergunta razoável sobre a qual outro leitor poderia se perguntar, então eu respondi sem humor.
— quintopia 5/12/2015
@quintopia +1 Por experimentar uma nova linguagem de golfe! Novas linguagens são divertidas;) Tentei pela primeira vez também sobre essa questão.
— csga5000
3

Javascript, 138 128 bytes

i=>eval("for(o=z=n='',m=15,t=q=0;q<i.length;q++)(t+=c=+i[q])>=m?(t-=m,z+=c-t,o+=z+`\n`,z=t>0?t+' ':n):z+=c+' ';t<m?o+z+(m-t):o")

Com espaço em branco:

i => eval("
  for(o=z=n='', m=15, t=q=0; q < i.length; q++)
    (t+=c=+i[q])>=m
      ?(
        t-=m,
        z+=c-t,
        o+=z+`\n`,
        z=t>0?t+' ':n)
      :
        z+=c+' '
    ;
  t<m ? o+z+(m-t) : o
")

Exemplo:

Atribua a função a uma variável

sumFifteen=i=>eval("for(o=z=n='',m=15,t=q=0;q<i.length;q++)(t+=c=+i[q])>=m?(t-=m,z+=c-t,o+=z+`\n`,z=t>0?t+' ':n):z+=c+' ';t<m?o+z+(m-t):o")

Então avalie da seguinte maneira:

console.log(sumFifteen([1,4,11,4,5]))

1 4 10
1 4 5 5

Histórico de Revisão:

03/12/2015 00:02 - Graças ao usuário81655 (+1 nos comentários) pela melhoria de 10 bytes

02/12/2015 21:44 - Comutado para usar o estilo funcional para reduzir o tamanho.

— csga5000
fonte
3
Você pode melhorar isso com estes: f=não é necessário de acordo com as regras do site, remova os parênteses de (i), envolva com evalpara que você não precise returnou entre parênteses e substitua-o ifpor um ternário para que oseja retornado e mude '\n'para `\n`, fundir t+=...com t>=mpara remover para colchetes. Aqui está sua solução em 127 bytes com todas essas melhorias:i=>eval("for(o=z=n='',m=15,t=q=0;q<i.length;q++)(t+=c=+i[q])>=m?(t-=m,z+=c-t,o+=z+`\n`,z=t>0?t+' ':n):z+=c+' ';t<m?o+z+(m-t):o")
— user81655 3/15/15
@ user81655 Vou implementar algumas dessas mudanças! Quando tento o seu, recebo um SytaxError: token inesperado ILLEGAL (...). Observe que, para testar a função, eu adicionei f =
— csga5000
1
SO adiciona alguns símbolos depois o+no final da linha. Exclua o+=ze escreva novamente e funcionará. : P
— user81655 03/12/2015
@ user81655 eu não vejo como \nfaz qualquer diferença
— csga5000
1
Você quer dizer o `\n`? Não funcionará sem ele porque o código está dentro "..."por causa do eval.
— user81655
2

Python 3: 139 bytes

Abordagem ligeiramente diferente da outra resposta. Produz a saída real da pergunta, porque eu assumi inicialmente que era um requisito.

def f(l):
 m=15;r,s=sum(l)%m,0
 if r:l+=[m-r]
 while l:
  x=l.pop(0)
  if s+x>m:y=m-s;l[0:0]=[x-y];x=y
  s+=x;print(x,end=' \n'[s==m]);s%=m

Exemplo de uso:

>>> f([2, 4, 5, 9, 2, 3, 5, 0, 2, 4, 5, 0, 3])
2 4 5 4
5 2 3 5
0 2 4 5 0 3 1
— cutucar
fonte
2

Perl, 86 bytes

#!perl -p
s|\d+( ?)|($i+=$&)<15?$&:($a=$&-($i%=15)).$/.($&>$a&&$&-$a.$1)|ge;$\=$".(15-$i)if$i

Contando o shebang como três, a entrada é retirada de stdin, com espaço separado.

Uso da amostra

$ echo -n 2 4 5 9 2 3 5 0 2 4 5 0 3 | perl sum15.pl
2 4 5 4
5 2 3 5
0 2 4 5 0 3 1
— primo
fonte
2

R, 155 bytes

n=scan();while(S<-sum(n)){C=cumsum(n);if(S>14){w=which(C>14)[1];N=n[1:w];n=n[-(1:w)];r=C[w]-15;N[w]=N[w]-r;if(r)n=c(r,n);cat(N,"\n")}else{cat(n,15-S);n=0}}

Com recuos e quebras de linha:

n=scan()
while(S<-sum(n)){
     C=cumsum(n)
     if(S>14){
         w=which(C>14)[1]
         N=n[1:w]
         n=n[-(1:w)]
         r=C[w]-15
         N[w]=N[w]-r
         if(r) n=c(r,n)
         cat(N,"\n")
         }else{
            cat(n,15-S)
             n=0
             }
      }

Uso:

> n=scan();while(S<-sum(n)){C=cumsum(n);if(S>14){w=which(C>14)[1];N=n[1:w];n=n[-(1:w)];r=C[w]-15;N[w]=N[w]-r;if(r)n=c(r,n);cat(N,"\n")}else{cat(n,15-S);n=0}}
1: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
18: 
Read 17 items
1 2 3 4 5 
6 7 2 
6 9 
10 5 
6 9 
3 12 
1 14 
15 
15 
1 14 
3 12
> n=scan();while(S<-sum(n)){C=cumsum(n);if(S>14){w=which(C>14)[1];N=n[1:w];n=n[-(1:w)];r=C[w]-15;N[w]=N[w]-r;if(r)n=c(r,n);cat(N,"\n")}else{cat(n,15-S);n=0}}
1: 20 20
3: 
Read 2 items
15 
5 10 
10 5
> n=scan();while(S<-sum(n)){C=cumsum(n);if(S>14){w=which(C>14)[1];N=n[1:w];n=n[-(1:w)];r=C[w]-15;N[w]=N[w]-r;if(r)n=c(r,n);cat(N,"\n")}else{cat(n,15-S);n=0}}
1: 10 5
3: 
Read 2 items
10 5 
> n=scan();while(S<-sum(n)){C=cumsum(n);if(S>14){w=which(C>14)[1];N=n[1:w];n=n[-(1:w)];r=C[w]-15;N[w]=N[w]-r;if(r)n=c(r,n);cat(N,"\n")}else{cat(n,15-S);n=0}}
1: 2 4 5 9 2 3 5 0 2 4 5 0 3
14: 
Read 13 items
2 4 5 4 
5 2 3 5 
0 2 4 5 0 3 1
— plannapus
fonte
2

Python 2, 117 bytes

i=input()
while i:
 s=15;r=[]
 while s>0:n=i.pop(0)if i else s;s-=n;r+=[n]if s>=0 else[n+s]
 if s<0:i=[-s]+i
 print r

Toma entrada como lista:

>>[2,4,5,9,2,3,5,0,2,4,5,0,3]
[2, 4, 5, 4]
[5, 2, 3, 5]
[0, 2, 4, 5, 0, 3, 1]
— TFeld
fonte
1

Perl, 76 bytes

Inclui +3 para -p(normalmente +1, mas +3 para jogar limpo com a outra solução perl)

Execute com a entrada STDIN (a nova linha final na entrada é opcional, mas DEVE estar ausente para a entrada vazia)

sum15.pl <<< "1 2 3"

sum15.pl:

#!/usr/bin/perl -p
s/$/ 15/;s/\d+/1x$&/eg;s/( *1){15}\K ?/
/g;s/
1*
*$//;s/1+|\B/length$&/eg

Olha ma, sem cálculos ...

— Ton Hospel
fonte
Antes tarde do que nunca! Solução muito agradável embora :) #
— 22416 Dada
0s são bastante complicados nesta solução (representada por espaços extras) e eu tenho que ter muito cuidado para lidar adequadamente com espaços para manter o número de 0s correto. Em particular, considere entradas onde uma soma parcial é exatamente 15, como 1 14 2 13. Julgá-los sem a `` e ver o que acontece?
— Ton Hospel
Sim, eu tentei e vi que 0s foram adicionados no início de algumas linhas, como você diz (foi por isso que excluí meu comentário 30 segundos depois de publicá-lo). Obrigado
— Dada
0

Java - 158 155 bytes

Versão lambda de https://codegolf.stackexchange.com/a/65590/46866 por yassin-hajaj , Não tenho certeza se um envio válido, mas não possui representante suficiente para adicionar um comentário à resposta vinculada. Contado usando http://meta.codegolf.stackexchange.com/questions/4944/byte-counter-snippet 

a->{int c=0,j;String s="";f:for(int i:a){for(j=i;j-->0;)if(++c>14){s+=(i-j)+"\n";c=0;if(j<15){if(j>0)s+=j+" ";c+=j;continue f;}}s+=i+" ";}return s+(15-c);}

158 bytes

a->{int c=0,j;String s="";f:for(int i:a){for (j=i;j-->0;)if(++c>14){s+=(i-j)+ "\n";c=0;if(j<15){if(j>0)s+=j+" ";c+=j;continue f;}}s+=i+ " ";}return s+(15-c);}

Ungolfed

a ->
    {
        int c=0, j;
        String s = "";
        f:
        for (int i : a) {
            for (j = i; j-- > 0; )
                if (++c > 14) {
                    s += (i - j) + "\n";
                    c = 0;
                    if (j < 15) {
                        if (j > 0) s += j + " ";
                        c += j;
                        continue f;
                    }
                }
            s += i + " ";
        }
        return s + (15 - c);
    }

pode ser usado como 

Function<int[], String> func =a->{int c=0,j;String s="";f:for(int i:a){for (j=i;j-->0;)if(++c>14){s+=(i-j)+ "\n";c=0;if(j<15){if(j>0)s+=j+" ";c+=j;continue f;}}s+=i+ " ";}return s+(15-c);};
System.out.println(func.apply(new int[]{2, 4, 5, 9, 2, 3, 5, 0, 2, 4, 5 ,0 ,3}));
— The_Lone_Devil
fonte
Ao utilizar nosso site, você reconhece que leu e compreendeu nossa Política de Cookies e nossa Política de Privacidade.
Licensed under cc by-sa 3.0 with attribution required.