10

Подаючи не порожній рядок, продовжуйте видаляти перший і останній символи, поки ви не дістанетесь до одного або двох символів.

Наприклад, якщо рядок був abcde, ваша програма повинна надрукувати:

abcde
 bcd
  c

Однак, якби це було abcdef, він повинен зупинитися на двох символах:

abcdef
 bcde
  cd

Обмеження нових рядків та пробілів у кінці кожного рядка необов’язкове. Ви можете мати стільки, скільки хочете, ні жодного.

Тестові справи

ABCDEFGHIJKLMNOPQRSTUVWXYZ -> ABCDEFGHIJKLMNOPQRSTUVWXYZ
                               BCDEFGHIJKLMNOPQRSTUVWXY 
                                CDEFGHIJKLMNOPQRSTUVWX  
                                 DEFGHIJKLMNOPQRSTUVW   
                                  EFGHIJKLMNOPQRSTUV    
                                   FGHIJKLMNOPQRSTU     
                                    GHIJKLMNOPQRST      
                                     HIJKLMNOPQRS       
                                      IJKLMNOPQR        
                                       JKLMNOPQ         
                                        KLMNOP          
                                         LMNO           
                                          MN            

ABCDEFGHIJKLMNOPQRSTUVWXYZ! -> ABCDEFGHIJKLMNOPQRSTUVWXYZ!
                                BCDEFGHIJKLMNOPQRSTUVWXYZ 
                                 CDEFGHIJKLMNOPQRSTUVWXY  
                                  DEFGHIJKLMNOPQRSTUVWX   
                                   EFGHIJKLMNOPQRSTUVW    
                                    FGHIJKLMNOPQRSTUV     
                                     GHIJKLMNOPQRSTU      
                                      HIJKLMNOPQRST       
                                       IJKLMNOPQRS        
                                        JKLMNOPQR         
                                         KLMNOPQ          
                                          LMNOP           
                                           MNO            
                                            N             

A -> A

AB -> AB

Пам'ятайте, що це код-гольф , тому код з найменшою кількістю байтів виграє.

code-golf string

— Олівер Ні
джерело

Чи може висновок бути списком рядків замість друку рядків?

— Грег Мартін

@GregMartin Так.

— Олівер Ні

1

Чи потрібно, щоб у кожному рядку були провідні пробіли?

— ETHproductions

@ETHproductions Так.

— Олівер Ні

9

@Oliver Це важлива інформація, ви повинні включити її в текст

— Луїс Мендо

11

V , 10 байт

ò^llYpr $x

Спробуйте в Інтернеті!

Пояснення:

ò^ll         " While there are at least two non-whitespace characters on the current line
    Y        " Yank this line
     p       " Paste it below
      r      " Replace the first character with a space
        $    " Move to the end of the line
         x   " Delete a character

— Джеймс
джерело

6

Пітон, 45 байт

f=lambda s,p='\n ':s and s+p+f(s[1:-1],p+' ')

Рекурсивно виводить рядок плюс новий рядок, плюс провідні місця для наступного рядка, плюс рекурсивний результат для скороченого рядка з додатковим пробілом у префіксі.

Якщо дозволений провідний новий рядок, ми можемо зберегти байт:

f=lambda s,p='\n':s and p+s+f(s[1:-1],p+' ')

Порівняйте з програмою (49 байт у Python 2):

s=input();p=''
while s:print p+s;s=s[1:-1];p+=' '

— xnor
джерело

6

ES6 (Javascript), 47, 48, 43 байти

EDIT: Замінено потрійний оператор &&, префіксованим рядком padding з новим рядком. Дякую @Neil за чудову пораду!

EDIT: включив ім'я функції для рекурсивного виклику, позбавив один байт, використовуючи буквальний новий рядок

Гольф

R=(s,p=`
 `)=>s&&s+p+R(s.slice(1,-1),p+' ')

Тест

R=(s,p=`
 `)=>s&&s+p+R(s.slice(1,-1),p+' ')

console.log(R("ABCDEFGHIJKLMNOPQRSTUVWXYZ"))

ABCDEFGHIJKLMNOPQRSTUVWXYZ
 BCDEFGHIJKLMNOPQRSTUVWXY
  CDEFGHIJKLMNOPQRSTUVWX
   DEFGHIJKLMNOPQRSTUVW
    EFGHIJKLMNOPQRSTUV
     FGHIJKLMNOPQRSTU
      GHIJKLMNOPQRST
       HIJKLMNOPQRS
        IJKLMNOPQR
         JKLMNOPQ
          KLMNOP
           LMNO
            MN

console.log(R("ABCDEFGHIJKLMNOPQRSTUVWXYZ!"))

ABCDEFGHIJKLMNOPQRSTUVWXYZ!
 BCDEFGHIJKLMNOPQRSTUVWXYZ
  CDEFGHIJKLMNOPQRSTUVWXY
   DEFGHIJKLMNOPQRSTUVWX
    EFGHIJKLMNOPQRSTUVW
     FGHIJKLMNOPQRSTUV
      GHIJKLMNOPQRSTU
       HIJKLMNOPQRST
        IJKLMNOPQRS
         JKLMNOPQR
          KLMNOPQ
           LMNOP
            MNO
             N

— цепелін
джерело

1

Я помічаю, що @xnor починається з рівня pнового рядка та пробілу; можливо, це теж могло б вам допомогти.

— Ніл

1

О, і ви можете також використовувати s&&замість цього s?...:''.

— Ніл

4

Python 2, 50 байт

def f(i,j=0):
 print' '*j+i
 if i:f(i[1:-1],j+1)

Проста рекурсивна функція, яка продовжує скорочувати струну до її зникнення.

Дзвінок як f ('рядок')

Вихідні дані

string
 trin
  ri

— ElPedro
джерело

4

Perl, 31 байт

30 байт коду + -pпрапор.

s/( *)\S(.+).$/$& 
 $1$2/&&redo

Щоб запустити його:

perl -pE 's/( *)\S(.+).$/$&
 $1$2/&&redo' <<< "abcdef"

Пояснення : \Sі .$відповідають першому та останньому символу, (.+)середині та ( *)пробілам, які додаються щоразу, коли ми видаляємо один символ із початку. Таким чином, регулярний вираз видаляє один символ з початку, один з кінця і додає один провідний пробіл кожен раз.

— Дада
джерело

4

Brainfuck , 67 байт

>>,[.>,]<[>++++++++++.<[-]<[<]>[-]++++++++[-<++++>]<[<]>[.>]>[.>]<]

Це повинно працювати над усіма смакотами.

Спробуйте в Інтернеті!

Невикористаний код:

# Print and read input_string into memory
>>,[.>,]<
while input_string is not empty [
    # Print newline
    >+++++ +++++.<
    # Remove last character
    [-]
    # GOTO start of input_string
    <[<]>
    # Remove first character
    [-]
    # Add space to space_buffer
    +++++ +++[-<++++>]
    # GOTO start of space_buffer
    <[<]>
    # Print space_buffer
    [.>]
    # Print input_string
    >[.>]
<]

Тут все одно має бути кілька байтів; Я тільки нещодавно почав використовувати brainfuck, тому мій рух вказівника, ймовірно, дуже неефективний.

— Едан Сміт
джерело

2

MATL , 9 байт

tg!*YRPRc

Це створює пробіли та нові рядки.

Спробуйте в Інтернеті!

Пояснення

t      % Input string implicitly. Duplicate
g!     % Convert to logical and transpose: gives a column vector of ones
*      % Multiply with broadcast. This gives a square matrix with the string's
       % ASCII codes on each row
YR     % Lower triangular part: make elements above the diagonal 0
P      % Flip vertically
R      % Upper triangular part: make elements below the diagonal 0
c      % Convert to char. Implicitly display, with char 0 shown as space

— Луїс Мендо
джерело

2

Пакет, 92 байти

@set/ps=
@set t=
:g
@echo %t%%s%
@set t= %t%
@set s=%s:~1,-1%
@if not "%s%"=="" goto g

Бере вхід на STDIN.

— Ніл
джерело

2

C, 73 байти

f(char*s){char*b=s,*e=s+strlen(s)-1;while(e-b>-1)puts(s),*b++=32,*e--=0;}

Безголівки:

f(char*s) {
  char *b=s,
       *e=s+strlen(s)-1;
  while (e-b>-1)
    puts(s),
    *b++=32,
    *e--=0;
}

Використання:

main(){
  char a[] = "abcde";
  f(a);
}

— Карл Напф
джерело

2

05AB1E , 8 байт

Код:

ÐvNú,¦¨D

Пояснення:

Ð          # Triplicate the input
 v         # Length times do...
  Nú,      # Prepend N spaces and print with a newline
     ¦¨    # Remove the first and the last character
       D   # Duplicate that string

Використовує кодування CP-1252 . Спробуйте в Інтернеті!

— Аднан
джерело

2

Пайк, 10 байт

VQlRc
l7tO

Спробуйте тут!

— Синій
джерело

2

Haskell, 47 43 байт

f s@(a:b:c)=s:map(' ':)(f.init$b:c)
f s=[s]

Спробуйте це на Ideone . Вихід - це список рядків, який було дозволено в коментарях виклику. Щоб надрукувати, запустіть із, (putStr.unlines.f)а не просто f.

Редагувати: збережено 4 байти після того, як помітили, що пробіл пробігу дозволений.

Prelude> (putStr.unlines.f)"codegolf"
codegolf
 odegol
  dego
   eg
               --(trailing whitespace)

— Лайконі
джерело

2

Perl 6 , 42 байти

for get,{S/\w(.*)./ $0/}.../\s..?$/ {.put}

Розширено:

for

  # generate the sequence
  get,       # get a line from the input

  {          # bare block lambda with implicit parameter ｢$_｣
             # used to produce the rest of the sequence

    S/       # replace
      \w     # a word character ( to be removed )
      (      # set ｢$0｣
        .*   # any number of any characters
      )
      .      # any character ( to be removed )
    / $0/    # append a space

  }

  ...        # repeat that until

  /          # match
    \s       # whitespace
    .        # any character
    .?       # optional any character
    $        # end of string
  /

{
  .put       # print $_ with trailing newline
}

— Бред Гілберт b2gills
джерело

1

GNU sed 24 Байт

Включає +2 для -rn

:
p
s/[^ ](.+)./ \1/
t

Друкує, замінює перший пробіл символом пробілом і видаляє останній символ, поки нічого не зміниться.

— Райлі
джерело

0

Сітківка , 17 байт

;{G:`
\S(.+).
 $1

Спробуйте в Інтернеті!

— Мартін Ендер
джерело

0

C ++ 14, 117 байт

auto f(auto s){decltype(s)r;auto b=s.begin();auto e=s.rbegin();while(e.base()-b>0)r+=s+"\n",*b++=32,*e++=0;return r;}

Припускає, що введення sє a std::stringі повертає анімований текст.

Безголівки:

auto f(auto s){
  decltype(s)r;
  auto b=s.begin();
  auto e=s.rbegin();
  while(e.base()-b>0){
    r+=s+"\n";
    *b++=32;
    *e++=0;
  }
  return r;
}

Використання:

main(){
  std::string a{"abcdef"};
  std::cout << f(a);
  std::string b{"abcde"};
  std::cout << f(b);
}

— Карл Напф
джерело

0

Vim - 14 натискань клавіш

qqYp^r $x@qq@q

Пояснення:

qq  -- record a macro named 'q'
Y   -- Copy current line
p   -- Paste it
^r  -- Replace the first non-space character on the new line with a space
$x  -- Delete the last character on the line
@q  -- Recursively call the 'q' macro
q   -- Stop recording the 'q' macro
@q  -- Run the 'q' macro

Vim автоматично вбиває макрос, коли ми не залишимо символів

— BlackCap
джерело

0

Оснастка! - 16 блоків

Оснастка!

Вихід - це самоцентринг. "Чекати" - це для людей.

— wyldstallyns
джерело

0

PHP, 91 байт

<?for(;$i<.5*$l=strlen($s=$_GET[s]);$i++)echo str_pad(substr($s,$i,$l-$i*2),$l," ",2)."\n";

Використання: збереження у файлі та дзвінок із браузера:

http://localhost/codegolf/string-middle.php?s=ABCDEFGHIJKLMNOPQRSTUVWXYZ

Raw output:
ABCDEFGHIJKLMNOPQRSTUVWXYZ
 BCDEFGHIJKLMNOPQRSTUVWXY 
  CDEFGHIJKLMNOPQRSTUVWX  
   DEFGHIJKLMNOPQRSTUVW   
    EFGHIJKLMNOPQRSTUV    
     FGHIJKLMNOPQRSTU     
      GHIJKLMNOPQRST      
       HIJKLMNOPQRS       
        IJKLMNOPQR        
         JKLMNOPQ         
          KLMNOP          
           LMNO           
            MN            


http://localhost/codegolf/string-middle.php?s=1ABCDEFGHIJKLMNOPQRSTUVWXYZ

Raw output:
1ABCDEFGHIJKLMNOPQRSTUVWXYZ
 ABCDEFGHIJKLMNOPQRSTUVWXY 
  BCDEFGHIJKLMNOPQRSTUVWX  
   CDEFGHIJKLMNOPQRSTUVW   
    DEFGHIJKLMNOPQRSTUV    
     EFGHIJKLMNOPQRSTU     
      FGHIJKLMNOPQRST      
       GHIJKLMNOPQRS       
        HIJKLMNOPQR        
         IJKLMNOPQ         
          JKLMNOP          
           KLMNO           
            LMN            
             M

— Маріо
джерело

0

Математика, 71 байт

Table[#~StringTake~{i,-i},{i,Ceiling[StringLength@#/2]}]~Column~Center&

— ngenisis
джерело

Анімальне знаходження середини

Тестові справи

V , 10 байт

Пітон, 45 байт

ES6 (Javascript), 47, 48, 43 байти

Python 2, 50 байт

Perl, 31 байт

Brainfuck , 67 байт

Невикористаний код:

MATL , 9 байт

Пояснення

Пакет, 92 байти

C, 73 байти

05AB1E , 8 байт

Пайк, 10 байт

Haskell, 47 43 байт

Perl 6 , 42 байти

Розширено:

GNU sed 24 Байт

Сітківка , 17 байт

C ++ 14, 117 байт

Vim - 14 натискань клавіш

PHP, 91 байт