9

Le modifiche sono numeri del modulo a * (10^n - 1)/9con a in [-9,9]\{0}(in altre parole 111, -3333, 66, numeri che sono fatti ripetendo solo una cifra)

Obiettivo: scrivere un programma o una funzione che accetta un singolo numero intero positivo Ne stampa N = s_1 + s_2 + ... + s_k. Dovrebbe esserci un numero per riga e i numeri devono essere allineati a destra. Non è necessario che due riepiloghi abbiano lo stesso numero di cifre e l'aggiunta di zeri non è consentita. L'output deve essere ordinato in ordine crescente o decrescente (per numero di cifre)

Esempi:

in:
24192
out:
24192 =
22222 +
 2222 -
  222 -
   33 +
    3

in:
24192
out:
    -7
   -22
  +888
 +1111
+22222
=24192

in:
113
out:
113=    NOT  111+  no empty lines  111+
111+          00+                    
  2            2                     2

Come puoi vedere ci possono essere più soluzioni e una certa libertà artistica è consentita. Sono consentiti spazi bianchi iniziali e finali in ogni riga

Vince il conteggio dei byte più corto

code-golf ascii-art number

— DenDenDo
fonte

Dovresti dichiarare alcune regole per impedire, ad esempio, solo di stamparne N?

— PurkkaKoodari,

3

Questo è già coperto: "Non ci sono due somme dovrebbero avere lo stesso numero di cifre"

— nutki

Questi numeri sono anche chiamati repdigits.

— Ypnypn,

6

perl 5 - 97 92 93 86

$x=$_=pop;{printf"%15s
",$_;$_=$x,s!\d!//,$&!eg,$x-=$_,$i++?s/^\b/+/:s/^/=/;/0/||redo}

Input fornito come parametro:

$perl a.pl 2224192
     2224192
    =2222222
       +1111
        +888
         -22
          -7

— nutki
fonte

Non stampa nulla se il numero contiene uno 0. Forse è la /0/condizione di loop.

— feersum

Grazie, in effetti è così. Mi sono confuso con i loop di scorciatoie perl. Hanno condizioni alla fine, ma continuano a controllarle alla prima iterazione. Devo cercare "+0" allora.

— Nutki,

In realtà posso simulare do ... while () con un solo personaggio in più usando redo.

— Nutki,

2

CJam, 55 50 byte

'=l:L+Li{_W>"-+"=1$zs(\,)*+:Ii-L,_S*I+\~>\}h;]W%N*

Provalo qui.

Utilizza il formato di output

Potrei giocare a golf ancora una volta quando sarò sconfitto.

Spiegazione:

'=l:L+Li{_W>"-+"=1$zs(\,)*+:Ii-L,_S*I+\~>\}h;]W%N*
'=                                                 "Push = character.";
  l:L                                              "Read STDIN and store in L.";
     +L                                            "Concatenate, push new copy of L.";
       i                                           "Convert to integer.";
        {                                 }h       "Do-while loop. Leaves the condition on the
                                                    stack. I will use the remainder for that.";
         _W>                                       "Duplicate remainder, compare with -1.";
            "-+"=                                  "Select appropriate sign character.";
                 1$                                "Copy remainder again.";
                   zs                              "Take abs() and convert to string.";
                     (                             "Shift off first digit.";
                      \                            "Swap with string.";
                       ,                           "Get length.";
                        )                          "Increment.";
                         *                         "Repeat digit that often.";
                          +                        "Concatenate with sign.";
                           :I                      "Store in I.";
                             i-                    "Convert to integer. Subtract from remainder.";
                                                   "Now we'll right-justify I.";
                               L,                  "Load input, get length.";
                                 _                 "Duplicate.";
                                  S*               "Repeat space that often.";
                                    I+             "Load string and concatenate.";
                                      \~           "Swap with length. Bitwise complement.";
                                        >          "Take that many characters from the right.";
                                         \         "Swap with remainder.";
                                            ;      "Discard final remainder (0).";
                                             ]     "Wrap in array.";
                                              W%   "Reverse.";
                                                N* "Join with line feeds.";

L'array risultante viene stampato automaticamente alla fine del programma.

— Martin Ender
fonte

0

JavaScript ES6 - 145

i=0;f=n=>{return g=n<0,n=Math.abs(n)+'',l=n.length,r=l-1?n[0].repeat(l):n,(i>0?g?'-':'+':n+'=')+'\n'+' '.repeat(i++)+(l-1?r+f((+n-r)*(g?-1:1)):r)}

Incolla nella console di Firefox. Esegui come f(24192).

Uscita per f(24192):

— Scimonster
fonte

Con l'input 55include uno 0 nella somma (che è un bug).

— feersum

0

GolfScript 77

~.[{..0>2*(.@*`.,\[0=]*''+~*.@\-.}do;]-1%{[.0>' +'=\`n].1=,2$`,\-' '*\+}%'='@

Link demo online:

Una versione leggermente più leggibile (se GolfScript può essere definita leggibile) con la versione unit test è disponibile qui .

— Cristian Lupascu
fonte

Decomporre un numero in una somma di riprogrammazioni

perl 5 - 97 92 93 86

CJam, 55 50 byte

JavaScript ES6 - 145

GolfScript 77