Visualize longas adições com arte ASCII


13

Totalmente não inspirado em Visualize divisão longa com arte ASCII ;)

Seu trabalho é mostrar adição de mão longa com arte ASCII. Você resolve a adição à mão adicionando as colunas da direita para a esquerda, colocando o valor das unidades no resultado e carregando as dezenas para o topo da próxima coluna.

Entrada

A entrada pode vir basicamente no formato que você quiser, desde que você tenha de 2 a 9 números como entrada.

Resultado

A formatação aqui provavelmente corresponde à forma como você a aprendeu na escola:

carry row
 number1 
 number2
     ...
+   numX
--------
  result

Você pode ter praticamente qualquer espaço em branco que desejar aqui;)

Exemplos

50, 50

1
 50
+50
---
100


1651, 9879

1111
 1651
+9879
-----
11530

6489789, 9874, 287

   1122
 6489789
    9874
+    287
--------
 6499950

Visualize longo subtração com arte ASCII: Vindo direto para você em 6 meses
CalculatorFeline

Não é bem assim, é na minha lista;)
J Atkin

1
Na verdade, fui ensinado a colocar a linha de transporte sob o resultado.
Neil

1
Como devemos lidar 9+9+9+9+9+9+9+9+9+9+9+9+9?
Downgoat

1
@Downgoat ... you take from 2 to 9 numbers as input...
PurkkaKoodari

Respostas:


5

Pitão, 59 58 bytes

L.[dJhl`eSQ`b:jk_.u/+NsYT.t_MjRTQ00\0djbyMPQXyeQ0\+*J\-ysQ

Experimente online. Suíte de teste.

Tempo demais. Deveria jogar mais.

Explicação

L                  helper function y = lambda b:
        eSQ          largest number in input
      l`             length as string
     h               increment
    J                save to J
 .[d       `b        pad argument with spaces to that length

                             carry row:
                jRTQ           each input to base 10
              _M               reverse each result
            .t      0          transpose, padding with zeroes
    .u               0         cumulative reduce from 0:
         sY                      sum digits of column
       +N                        add previous carry
      /    T                     floor-divide by 10
   _                           reverse
 jk                            join by ""
:                     \0d      replace 0 by space

          number rows:
    PQ      all input numbers but last one
  yM        pad to correct length
jb          print on separate lines

           last number row:
  eQ         last input number
 y           pad to correct length
X   0\+      change first char to +

        separator row:
 J        width of input (saved in helper)
* \-      that many dashes

       result row:
 sQ      sum of inputs
y        pad to correct length

1

Lote, 326 bytes

A contagem de bytes não inclui explicações, é claro.

@echo off
set t=%*                            Get the space separated parameters
set t=%t: =+%                       Change the spaces into + signs
set/at=%t%,l=p=1                    Add together, and initialise length and power
set c=                              Carry string
set d=-                             Dash string
:l                                  Loop though each power of 10
set/al+=1,p*=10,s=t/p               Divide the total by the power
for %%n in (%*)do set/as-=%%n/p     Subtract each parameter divided
set c=%s%%c%                        Anything left must have been carried
set d=-%d%                          Add a - to the line of dashes
if %p% leq %t% goto l               Keep going until we run out of powers
echo(%c:0= %                        Delete any zeros in the carry and output it
:i                                  Loop through each parameter
set n=%d:-= %%1                     Pad it with a whole bunch of spaces
call set n=%%n:~-%l%%%              Extract the rightmost characters
if "%2"=="" set n=+%n:~1%           Insert a + before the last parameter
echo %n%                            And output it
shift                               Move to the next parameter
if not "%1"=="" goto i              Until they are all consumed
echo %d%                            Output the line of dashes
echo  %t%                           Output the total (with an indent for the +)

0

JavaScript (ES6), 199 bytes

a=>[[...t=` `+a.reduce((t,n)=>t+n)].map((_,i)=>a.reduce((c,n)=>c-n[i],90+t[i])%10||` `),a=a.map(n=>(` `.repeat(l=t.length)+n).slice(-l))).join``,...a,`-`.repeat(l),t].join`\n`.replace(/ (?=.*\n-)/,`+`)

Onde o primeiro \nrepresenta um caractere literal de nova linha, enquanto o segundo é uma sequência de escape de expressão regular de dois caracteres. Explicação:

a=>[                            Accept an array of numbers
 [...                           Split the total into digits
  t=` `+a.reduce((t,n)=>t+n)    Calculate the total and add a space
 ].map((_,i)=>a.reduce((c,n)=>  For each column
  c-n[i],90+t[i])               Subtract the column from the total
  %10||` `),                    Deduce the carry that was needed
  a=a.map(n=>                   For each input value
   (` `.repeat(l=t.length)+n)   Pad to the length of the total
    .slice(-l))                 Remove excess padding
 ).join``,                      Join the carries together
 ...a,                          Append the padded input values
 `-`.repeat(l),                 Append the dividing line
 t].join`\n`                    Append the total and join together
  .replace(/ (?=.*\n-)/,`+`)    Insert the + on the line above the -

O cálculo de transporte funciona utilizando o dígito total, prefixando 90, subtraindo todos os dígitos do valor de entrada nessa coluna e utilizando o módulo 10. do resultado (o prefixo é 90melhor 9que a coluna principal gera um espaço de transporte em branco).

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.