Certains esolangs bidimensionnels, tels que Forked , et certains non-esolangs, tels que Python , peuvent parfois nécessiter des espaces avant les lignes de code. Ce n'est pas très golfique. _{^{De plus, je suis paresseux et j'écris un langage 2D qui a besoin de beaucoup d'espace avant le code.}} Votre tâche est d'écrire un outil qui rend ces langues plus golfiques.

Bien sûr, ce ne sera pas parfait; il ne peut pas être utilisé, par exemple, lorsqu'un nombre est le premier caractère d'une ligne de source. Cependant, cela sera généralement utile.

Défi

Vous écrirez un programme ou une fonction qui soit ...

• ... prend un argument, un nom de fichier ou une chaîne, ou ...
• ... lit à partir de l'entrée standard.

Votre programme agira comme cat, sauf:

• Si le premier caractère d'une ligne est un nombre, votre code affichera x espaces, où x est ce nombre.
• Sinon, il sera simplement imprimé.
• Comme tous les autres caractères de l'entrée.

Cas de test

Contribution:

foo bar foo bar
1foo bar foo bar foo bar
2foo bar foo bar foo bar foo bar

Production:

foo bar foo bar
 foo bar foo bar foo bar
  foo bar foo bar foo bar foo bar

Contribution:

--------v
8|
8|
80
8,
7&

Production:

--------v
        |
        |
        0
        ,
       &

Contribution:

foo bar
bar foo
foo bar

Production:

foo bar
bar foo
foo bar

Contribution:

0123456789
1234567890
2345678901
3456789012
4567890123

Production:

123456789
 234567890
  345678901
   456789012
    567890123

Règles

• La sortie doit être exactement comme l'entrée, sauf pour les lignes où le premier caractère est un nombre.
• Votre programme ne peut rien ajouter / ajouter au début du fichier, sauf un saut de ligne si vous le souhaitez.
• Votre programme peut ne faire aucune hypothèse sur l'entrée. Il peut contenir des lignes vides, pas de chiffres, des caractères Unicode, peu importe.
• Si un nombre avec plus d'un chiffre commence une ligne (par exemple 523abcdefg), seul le premier chiffre (dans l'exemple, 5) doit se transformer en espaces.

Gagnant

Le code le plus court dans chaque langue gagne. Amuse-toi bien et bonne chance!

Rétine , 9 octets

m`^\d
$* 

Essayez-le en ligne! Remarque: Espace de fin sur la dernière ligne.

Cubiquement , 69 octets

R1B1R3B1~(+50<7?6{+54>7?6{-002+7~?6{(@5*1-1/1)6}}}(-6>7?6&@7+70-4~)6)

Essayez-le en ligne!

Explication:

Nous faisons d'abord cette initialisation:

R1B1R3B1

Pour configurer ce cube:

   533
   004
   000
411223455441
311222331440
311222331440
   555
   555
   200

La chose la plus importante à propos de ce cube est que la 5somme des faces est de 32, qui est la valeur requise pour imprimer les espaces. Par coïncidence, il se trouve également être assez court pour tous les autres calculs. Après cela est fait:

~( . . . )                                    Takes the first input, then loops indefinitely

  +50<7?6{+54>7?6{-002+7~?6{(@5*1-1/1)6}}}    Handle leading digit:
  +50<7?6{                               }    If input is greater than 47 ('0' is 48)
          +54>7?6{                      }     And input is less than 58 ('9' is 57)
                                              Then input is a digit
                  -002+7                      Set notepad equal to value of input digit
                        ~                     Take next input (only convenient place for it)
                         ?6{           }      If the notepad isn't 0
                            (        )6       While the notepad isn't 0:
                             @5                 Print a space
                               *1-1/1           Decrement the notepad by one
                                              Leading digit handled

     (-6>7?6&@7+70-4~)6                       Handle rest of line:
     (               )6                       While the notepad isn't 0:
      -6>7?6&                                   Exit if End of Input
             @7                                 Print the next character
               +70-4                            Set notepad to 0 if it was a newline
                    ~                           Take the next character

Husk , 15 13 octets

-2 octets grâce à @Zgarb

mΓo+?oR' i;±¶

Essayez-le en ligne!

Utilise la même technique que @Jonathan Allan

Explication

             ¶  -- split input into a list of lines
m               -- apply the following function to each line
 Γ              --   deconstruct the string into a head and a tail
  o+            --   prepend to the tail of the string ...
    ?      ±    --     if the head is a digit (n)
     oR' i      --       the string of n spaces
                --     else
          ;     --       the head of the string
                -- implicitly print list of strings line-by-line

JavaScript (ES8), 38 37 octets

a=>a.replace(/^\d/gm,a=>''.padEnd(a))

Je ne pense pas que cela puisse être amélioré beaucoup plus.
1 octet enregistré grâce à Shaggy - Utilisez les fonctionnalités ES8.

Python 2 , 98 74 67 65 octets

-24 octets grâce à Jonathan Allan. -7 octets grâce à M. Xcoder.

for i in open('f'):print' '*int(i[0])+i[1:]if'/'<i[:1]<':'else i,

Essayez-le en ligne!

Prend l'entrée dans le fichier nommé f.

Rubis , 24 21 + 1 = 25 22 octets

Utilise le -pdrapeau. -3 octets de Go.

sub(/^\d/){"%#$&s"%p}

Essayez-le en ligne!

05AB1E , 10 octets

v0y¬dićú},

Essayez-le en ligne!

Python 3 , 95 octets

lambda y:'\n'.join(re.sub('^\d',lambda x:' '*int(x.group()),z)for z in y.split('\n'))
import re

Essayez-le en ligne!

-4 octets en volant l'idée regex de ThePirateBay

Gelée , 19 octets

V⁶ẋ
Ḣǹe?ØD;
ỴÇ€Yḟ0

Un lien monadique prenant et renvoyant des listes de personnages, ou un programme complet imprimant le résultat.

Essayez-le en ligne!

Comment?

V⁶ẋ - Link 1, make spaces: character (a digit)
V   - evaluate as Jelly code (get the number the character represents)
 ⁶  - a space character
  ẋ - repeat

Ḣǹe?ØD; - Link 2, process a line: list of characters
Ḣ        - head (get the first character and modify the line)
         -   Note: yields zero for empty lines
     ØD  - digit characters = "0123456789"
    ?    - if:
   e     - ...condition: exists in? (is the head a digit?)
 Ç       - ...then: call the last link as a monad (with the head as an argument)
  ¹      - ...else: identity (do nothing; yields the head)
       ; - concatenate with the beheaded line

ỴÇ€Yḟ0 - Main link: list of characters
Ỵ      - split at newlines
 Ç€    - call the last link (1) as a monad for €ach
   Y   - join with newlines
    ḟ0 - filter out any zeros (the results of empty lines)

Perl 5 , 13 + 1 (-p) = 14 octets

s/^\d/$"x$&/e

Essayez-le en ligne!

Haskell , 63 octets

unlines.map g.lines
g(x:r)|x<';',x>'/'=(' '<$['1'..x])++r
g s=s

Essayez-le en ligne! La première ligne est une fonction anonyme qui divise une chaîne donnée en lignes, applique la fonction gà chaque ligne et joint les lignes résultantes avec des retours à la ligne. Il gest vérifié si le premier caractère xd'une ligne est un chiffre. Si tel est le cas, ['1'..x]renvoie alors une chaîne de longueur égale à la valeur du chiffre xet ' '<$convertit la chaîne en autant d'espaces. Enfin, le reste de la ligne rest ajouté. Si xn'est pas un chiffre, nous sommes dans la deuxième équation g s=set renvoyons la ligne non modifiée.

Python 2 , 76 72 68 octets

-4 octets grâce à @ovs !

@DeadPossum a suggéré de passer à Python 2, ce qui a également permis d'économiser 4 octets.

Je pensais juste que c'était agréable d'avoir un programme complet compétitif en Python 2 qui ne vérifie pas explicitement si le premier caractère est un chiffre. Ce lit l'entrée d'un fichier, f.

for i in open('f'):
 try:r=int(i[0])*" "+i[1:]
 except:r=i
 print r,

Essayez-le en ligne! (avec l'aimable autorisation de @ovs )

Java 8 , 105 99 97 93 octets

Enregistré quelques octets supplémentaires grâce à la suggestion de Nevay,

s->{int i=s.charAt(0);if(i>47&i<58)s=s.substring(1);while(i-->48)s=" "+s;System.out.print(s);}

R , 138 128 octets

-9 octets grâce à CriminallyVulgar

n=readLines();for(d in grep("^[0-9]",n))n[d]=gsub('^.?',paste0(rep(' ',eval(substr(n[d],1,1))),collapse=''),n[d]);cat(n,sep='
')

C'est assez mauvais, mais c'est un peu mieux maintenant ... R est, encore une fois, terrible aux cordes.

Essayez-le en ligne!

Japt (v2.0a0), 11 10 octets

Japt bat Jelly et 05AB1E? Cela ne semble pas correct!

r/^\d/m_°ç

Essaye-le

Explication

Saisie implicite de chaîne U

r/^\d/m

Utilisez Regex replace ( r) toutes les occurrences d'un chiffre au début d'une ligne ( mest l'indicateur multiligne - l' gindicateur est activé par défaut dans Japt).

_

Passez chaque correspondance à travers une fonction, où Zest l'élément actuel.

°

L'opérateur d'incrémentation postfix ( ++). Cela se convertit Zen un entier sans l'augmenter pour l'opération suivante.

ç

Répétez un caractère espace Zfois.

Sortie implicite de la chaîne résultante.

Gelée , 19 octets

Ḣ⁶ẋ;µ¹µḣ1ẇØDµ?
ỴÇ€Y

Essayez-le en ligne!

-5 octets au total grâce aux commentaires de Jonathan Allan et en regardant son post

Explication

Ḣ⁶ẋ;µ¹µḣ1ẇØDµ?  Main link
             ?  Ternary if
                if:
       ḣ1       the first 1 element(s) (`Head` would modify the list which is not wanted)
         ẇ      is a sublist of (essentially "is an element of")
          ØD    "0123456789"
                then:
  ẋ             repeat
 ⁶              ' '
Ḣ               n times where n is the first character of the line (head)
   ;            concatenate the "beheaded" string (wording choice credited to Jonathan Allan)
                else:
     ¹          Identity (do nothing)
    µ µ     µ   Link separators
ỴÇ€Y            Executed Link
Ỵ               Split by newlines
  €             For each element,
 Ç              call the last link on it
   Y            Join by newlines

Pyth ,  16  15 octets

jm.x+*;shdtdd.z

Essayez-le en ligne!

Explication

jm.x + *; shdtdd.z - Programme complet qui fonctionne en lisant tout depuis STDIN.

             .z - Lisez tous les STDIN et divisez-les par sauts de ligne.
 m - Carte avec une variable d.
  .x - Essayez:
     *; shd - Pour convertir le premier caractère en entier et le multiplier par un espace.
    + td - Et ajoutez tout sauf le premier caractère
            d - Si ce qui précède échoue, ajoutez simplement la chaîne entière.
j - Rejoignez par des nouvelles lignes.

Prenons un exemple qui devrait être plus facile à traiter. Disons que notre contribution est:

foo bar foo bar
1foo bar foo bar foo bar
2foo bar foo bar foo bar foo bar

Le programme ci-dessus fera ce qui suit:

• .z- Lit tout et le divise par des nouvelles lignes, donc nous obtenons ['foo bar foo bar', '1foo bar foo bar foo bar', '2foo bar foo bar foo bar foo bar'].

• Nous obtenons le premier caractère de chaque: ['f', '1', '2'].

• S'il est convertible en un entier, nous répétons un espace qui multiplie les temps et ajoutons le reste de la chaîne. Sinon, nous plaçons simplement la chaîne entière. Par conséquent, nous avons ['foo bar foo bar', ' foo bar foo bar foo bar', ' foo bar foo bar foo bar foo bar'].

• Enfin, nous nous joignons par des nouvelles lignes, donc notre résultat est:

  foo bar foo bar
   foo bar foo bar foo bar
    foo bar foo bar foo bar foo bar
  

Cubiquement , 82 octets

R3D1R1D1+0(?6{?7@7~:1+2<7?6{+35>7?6{:7-120?6{(B3@5B1-0)6}:0}}}?6!@7~-60=7&6+4-3=7)

Remarque: cela ne fonctionnera pas sur TIO . Pour tester cela, utilisez l' interpréteur Lua avec l'indicateur expérimental défini sur true (pour activer les conditions). Il y a actuellement un bogue avec des blocs conditionnels sur l'interpréteur TIO. Lorsque vous utilisez l'interpréteur TIO, vous devez remplacer ?6!par !6et &6par ?6&, ce qui maintient le nombre d'octets le même.

R3D1R1D1          Set the cube so that face 0 has value 1 and the rest of the values are easy to calculate

+0                Set the notepad to 1 so that it enters the conditional below
(                 Do
  ?6{               If the notepad is 1 (last character was \n or start of input)
    ?7@7              Output the current character if it's \n
    ~                 Get the next character
    :1+2<7?6{         If the input is >= '0'
      +35>7?6{          If the input is <= '9'
        :7-120            Set the notepad to the input - '0'
        ?6{               If the notepad isn't 0
          (                 Do
            B3@5              Output a space
            B1-0              Subtract 1 from notepad
          )6                While notepad > 0
        }                 End if
        :0              Set notepad to 1
      }                 End if
    }                 End if
  }                 End if

  ?6!@7             If the notepad is 0 (did not attempt to print spaces), print current character

  ~                 Get next character
  -60=7&6           If there is no more input, exit the program
  +4-3=7            Check if current character is \n, setting notepad to result
)                 Repeat forever

Ce n'est pas aussi court que l'autre réponse cubique, mais j'ai pensé essayer de toute façon: D

> <> , 60 octets

!^i:0(?;::"/")$":"(*0$.
v"0"-
>:?!v1-" "o
;>:o>a=&10&?.i:0(?

Essayez-le en ligne!

Comment ça fonctionne:

..i:0(?;... Gets input and ends if it is EOF
...
...
...

.^......::"/")$":"(*0$. If the inputted character is a digit go to the second line
...                     Else go to the fourth
...
...

....        If it was a digit
v"0"-       Subtract the character "0" from it to turn it into the corresponding integer
>:?!v1-" "o And print that many spaces before rejoining the fourth line
...

.^..               On the fourth line,
....               Copy and print the input (skip this if it was a digit)
....v              If the input is a newline, go back to the first line.
;>:o>a=&10&?.i:0(? Else get the input, ending on EOF

V , 9 octets

ç^ä/x@"é 

Essayez-le en ligne!

Explication

ç  /      ' On lines matching
 ^ä       ' (Start)(digit)
    x     ' Delete the first character
     @"   ' (Copy Register) number of times
       é  ' Insert a space

Gema, 21 personnages

\N<D1>=@repeat{$1;\ }

Exemple d'exécution:

bash-4.4$ gema '\N<D1>=@repeat{$1;\ }' <<< 'foo bar foo bar
> 1foo bar foo bar foo bar
> 2foo bar foo bar foo bar foo bar
> 
> --------v
> 8|
> 8|
> 80
> 8,
> 7&'
foo bar foo bar
 foo bar foo bar foo bar
  foo bar foo bar foo bar foo bar

--------v
        |
        |
        0
        ,
       &

PHP, 83 caractères

preg_replace_callback('/^\d/m',function($m){return str_repeat(' ',$m[0]);},$argv);