เขียนโปรแกรมหรือฟังก์ชั่นที่ใช้ในสายอักขระที่รับประกันว่าจะมีอักขระ ASCII ที่พิมพ์ได้ยกเว้นพื้นที่และเป็นความยาวรูปสามเหลี่ยม (1, 3, 6, 10, 15, 15, ... )

พิมพ์หรือส่งคืนสายเดียวกัน แต่รูปร่างเป็นรูปสามเหลี่ยมโดยใช้ช่องว่าง ตัวอย่างบางส่วนจะแสดงสิ่งที่ฉันหมายถึง:

ถ้าอินพุตเป็นRเอาต์พุตจะเป็น

R

ถ้าอินพุตเป็นcatเอาต์พุตจะเป็น

 c
a t

ถ้าอินพุตเป็นmonk3yเอาต์พุตจะเป็น

  m
 o n
k 3 y

ถ้าอินพุตเป็นmeanIngfu1เอาต์พุตจะเป็น

   m
  e a
 n I n
g f u 1

ถ้าอินพุตเป็น^/\/|\/[]\เอาต์พุตจะเป็น

   ^
  / \
 / | \
/ [ ] \

หากอินพุตเป็น

Thisrunofcharactersismeanttohavealengththatcanbeexpressedasatriangularnumber.Diditwork?Youtellme,Ican'tcountverywell,ok?

จากนั้นผลลัพธ์จะเป็น

              T
             h i
            s r u
           n o f c
          h a r a c
         t e r s i s
        m e a n t t o
       h a v e a l e n
      g t h t h a t c a
     n b e e x p r e s s
    e d a s a t r i a n g
   u l a r n u m b e r . D
  i d i t w o r k ? Y o u t
 e l l m e , I c a n ' t c o
u n t v e r y w e l l , o k ?

โดยทั่วไปแล้วบรรทัดใหม่จะถูกแทรกระหว่างสตริงย่อยของความยาวรูปสามเหลี่ยมช่องว่างจะถูกเพิ่มระหว่างอักขระทั้งหมดและแต่ละบรรทัดจะถูกเยื้องด้วยช่องว่างเพื่อให้พอดีกับรูปร่างสามเหลี่ยม

ขึ้นบรรทัดใหม่และบรรทัดที่มีช่องว่างต่อท้ายสามารถเลือกได้ แต่ไม่เช่นนั้นผลลัพธ์ของคุณควรตรงกับตัวอย่างเหล่านี้ บรรทัดสุดท้ายของรูปสามเหลี่ยมไม่ควรมีช่องว่างนำหน้า

รหัสที่สั้นที่สุดในหน่วยไบต์ชนะ

Pyth, 22 ไบต์

jua+L\ GjdHfTczsM._UzY

ลองใช้ออนไลน์: การสาธิตหรือชุดทดสอบ

คำอธิบาย:

jua+L\ GjdHfTczsM._UzY   implicit: z = input string
                   Uz    create the list [0, 1, ..., len(z)-1]
                 ._      all prefixes of this list: [[0], [0,1], [0,1,2], ...]
               sM        sum up each sublist: [0, 1, 3, 6, 10, ...]
             cz          split z at these indices
           fT            remove all the unnecessary empty strings
                         this gives us the list of strings of the triangle
 u                   Y   reduce this list, with the initial value G = []
   +L\ G                    prepend a space to each string in G
        jdH                 join the current string with spaces
  a                         and append it to G
j                        print each string on a separate line

Python ขนาด 81 ไบต์

def f(s,p=''):
 i=-int(len(2*s)**.5)
 if s:f(s[:i],p+' ');print p+' '.join(s[i:])

ฟังก์ชั่นวนซ้ำ ไปจากจุดสิ้นสุดsตัดและพิมพ์อักขระ sจำนวนตัวอักษรที่จะใช้คำนวณจากความยาวของ ฟังก์ชั่นตั้งค่าให้พิมพ์ตามลำดับย้อนกลับของการโทรซ้ำซึ่งจะสิ้นสุดเมื่อsว่างเปล่าจากนั้นแก้ไขการสำรองข้อมูล แต่ละเลเยอร์คำนำหน้าpมีการเพิ่มพื้นที่พิเศษ

ใน Python 3 ifสามารถทำผ่านการลัดวงจรแม้ว่าสิ่งนี้จะไม่บันทึกตัวอักษร:

def f(s,p=''):i=-int(len(2*s)**.5);s and[f(s[:i],p+' '),print(p+' '.join(s[i:]))]

ทางเลือกที่ยาวเท่ากันพร้อมการโยงที่ไม่เท่าเทียมกัน:

def f(s,p=''):i=-int(len(2*s)**.5);''<s!=f(s[:i],p+' ')!=print(p+' '.join(s[i:]))

ทั้งสองprintและfการกลับมาNoneซึ่งเป็นเรื่องยากที่จะใช้

เรติน่า , 108 102 94 87 82 64 63 ไบต์

ขอบคุณ Sp3000 ที่ทำให้ฉันใช้วิธีการดั้งเดิมของฉันซึ่งนำจำนวนไบต์จาก 108 ลงไปที่ 82

ต้องขอบคุณ Kobi อย่างมากที่พบวิธีแก้ปัญหาที่สง่างามกว่านี้มากซึ่งทำให้ฉันสามารถประหยัดอีก 19 ไบต์บนนั้น

S_`(?<=^(?<-1>.)*(?:(?<=\G(.)*).)+)
.
$0 
m+`^(?=( *)\S.*\n\1)
<space>

โดยที่<space>หมายถึงอักขระเว้นวรรคเดียว (ซึ่งจะถูกปล้นโดย SE) เพื่อวัตถุประสงค์ในการนับแต่ละบรรทัดไปในไฟล์แยกต่างหากและ\nควรถูกแทนที่ด้วยอักขระตัวป้อนบรรทัดจริง เพื่อความสะดวกคุณสามารถเรียกใช้รหัสได้จากไฟล์เดียวที่มีการ-sตั้งค่าสถานะ

ลองออนไลน์

คำอธิบาย

... ตามปกติฉันไม่สามารถให้คำแนะนำเกี่ยวกับการสร้างสมดุลให้กับกลุ่มได้ที่นี่ สำหรับไพรเมอร์ดูคำตอบของฉันกองมากเกิน

S_`(?<=^(?<-1>.)*(?:(?<=\G(.)*).)+)

ขั้นแรกคือระยะSพลีซึ่งแยกอินพุตเป็นเส้นของความยาวที่เพิ่มขึ้น _บ่งชี้ว่าชิ้นที่ว่างเปล่าควรจะตัดออกจากแยก (ซึ่งจะมีผลต่อท้ายที่สุดเพราะจะมีการแข่งขันในตำแหน่งสุดท้าย) Regex นั้นมีอยู่ทั้งหมดในลักษณะที่มองดังนั้นมันจะไม่ตรงกับตัวละครใด ๆ แต่ตำแหน่งเท่านั้น

ส่วนนี้ขึ้นอยู่กับวิธีการแก้ปัญหาของ Kobi พร้อมกับ Golfitude เพิ่มเติมฉันพบตัวเอง โปรดสังเกตว่า lookbehinds ถูกจับคู่จากขวาไปซ้ายใน. NET ดังนั้นคำอธิบายต่อไปนี้ควรอ่านจากล่างขึ้นบน ฉันได้แทรก\Gคำอธิบายอื่นลงในคำอธิบายเพื่อความชัดเจนแม้ว่านั่นไม่จำเป็นสำหรับรูปแบบการทำงาน

(?<=
  ^         # And we ensure that we can reach the beginning of the stack by doing so.
            # The first time this is possible will be exactly when tri(m-1) == tri(n-1),
            # i.e. when m == n. Exactly what we want!
  (?<-1>.)* # Now we keep matching individual characters while popping from group <1>.
  \G        # We've now matched m characters, while pushing i-1 captures for each i
            # between 1 and m, inclusive. That is, group <1> contains tri(m-1) captures.
  (?:       
    (?<=
      \G    # The \G anchor matches at the position of the last match.
      (.)*  # ...push one capture onto group <1> for each character between here
            # here and the last match.
    )       # Then we use a lookahead to...
    .       # In each iteration we match a single character.
  )+        # This group matches all the characters up to the last match (or the beginning
            # of the string). Call that number m.
)           # If the previous match was at position tri(n-1) then we want this match
            # to happen exactly n characters later.

ฉันยังคงชื่นชมผลงานของ Kobi ที่นี่ นี่คือสง่างามยิ่งกว่า regex การทดสอบที่สำคัญ :)

มาดูขั้นตอนต่อไปกันเลย:

.
$0 

ง่าย: แทรกช่องว่างหลังอักขระที่ไม่ใช่บรรทัดป้อนทุกตัว

m+`^(?=( *)\S.*\n\1)
<space>

ขั้นตอนสุดท้ายนี้เยื้องบรรทัดทั้งหมดอย่างถูกต้องเพื่อสร้างรูปสามเหลี่ยม นี่mเป็นเพียงโหมด multiline ปกติเพื่อให้^ตรงกับจุดเริ่มต้นของบรรทัด +บอก Retina ที่จะทำซ้ำขั้นตอนนี้จนกว่าสตริงหยุดการเปลี่ยนแปลง (ซึ่งในกรณีนี้หมายความว่า regex ไม่มีการแข่งขันอีกต่อไป)

^      # Match the beginning of a line.
(?=    # A lookahead which checks if the matched line needs another space.
  ( *) # Capture the indent on the current line.
  \S   # Match a non-space character to ensure we've got the entire indent.
  .*\n # Match the remainder of the line, as well as the linefeed.
  \1   # Check that the next line has at least the same indent as this one.
)

ดังนั้นนี่ตรงกับจุดเริ่มต้นของบรรทัดใด ๆ ที่ไม่มีการเยื้องที่ใหญ่กว่าถัดไป ในตำแหน่งดังกล่าวเราใส่ช่องว่าง กระบวนการนี้สิ้นสุดลงเมื่อมีการจัดเรียงบรรทัดในรูปสามเหลี่ยมเรียบร้อยเพราะนั่นคือเค้าโครงที่เล็กที่สุดที่แต่ละบรรทัดมีการเยื้องที่ใหญ่กว่าถัดไป

ลูกกวาด , 67 59 57 ไบต์

&iZ1-=yZ1+Z*2/>{0g}0=z@1i&{|.}bYR(" ";=)ZR(=a&{;}" ";)"\n";Y1-=ya1j

&1-8*1+r1-2/=y@1i&{|.}bYR(" ";=)ZR(=a&{;}" ";)"\n";Y1-=ya1j

&8*7-r1-2/=y@1i&{|.}bYR(" ";=)ZR(=a&{;}" ";)"\n";Y1-=ya1j

หรือ:

          &
         8 *
        7 - r
       1 - 2 /
      = y @ 1 i
     & { | . } b
    Y R ( "   " ;
   = ) Z R ( = a &
  { ; } "   " ; ) "
 \ n " ; Y 1 - = y a
1 j

แบบยาว:

stackSz
digit8    # Y = (sqrt((numCh - 1) * 8 + 1) - 1) / 2   using pythagorean
mult      # Y = (sqrt(numCh * 8 - 7) - 1) / 2  equivalent but shorter
digit7
sub
root
digit1
sub
digit2
div
popA
YGetsA
label digit1
incrZ
stackSz   # bail if we're out of letters
if
  else
  retSub
endif
stack2
pushY     # print the leading spaces (" " x Y)
range1
while
  " " printChr
  popA
endwhile
pushZ
range1      # output this row of characters (Z of them)
while
  popA
  stack1
  stackSz
  if
    printChr    # bail on unbalanced tree
  endif
  " " printChr
endwhile
"\n" printChr
pushY
digit1
sub
popA
YGetsA
stack1
digit1 jumpSub   # loop using recursion

CJam, 27 26 ไบต์

ขอบคุณ Sp3000 สำหรับการบันทึก 1 ไบต์

Lq{' @f+_,)@/(S*N+a@\+\s}h

น่าแปลกที่ใกล้กับ Pyth มาดูกันว่ามันสามารถเล่นกอล์ฟได้หรือไม่ ...

ทดสอบที่นี่

คำอธิบาย

L        e# Push an empty array to build up the lines in.
q        e# Read input.
{        e# While the top of the stack is truthy (non-empty)...
  ' @f+  e#   Prepend a space to each line we already have.
  _,)    e#   Get the number of lines we already have and increment.
  @/     e#   Split the input into chunks of that size.
  (S*    e#   Pull off the first chunk (the next line) and join with spaces.
  N+     e#   Append a linefeed.
  a@\+   e#   Append it to our list of lines.
  \s     e#   Pull up the other chunks of the input and join them back into one string.
}h

Ruby, 84 77 73 ไบต์

->v{1.upto(n=v.size**0.5*1.4){|i|puts" "*(n-i)+v[i*(i-1)/2,i].chars*" "}}

77 ไบต์

->v{0.upto(n=(v.size*2)**0.5-1){|i|puts" "*(n-i)+v[i*(i+1)/2,i+1].chars*" "}}

ลดจำนวนไบต์ลงอีกสองสามตัวโดยลบตัวแปรrตามที่ steveverrill แนะนำ

84 ไบต์

->v{n=(v.size*2)**0.5-1;0.upto(n){|i|puts" "*(n-i)+v[(r=i*(i+1)/2)..r+i].chars*" "}}

Ungolfed:

->v {
  1.upto(n=v.size**0.5*1.4) { |i|
    puts" "*(n-i)+v[i*(i-1)/2,i].chars*" "
  }
}

ก่อนอื่นคำนวณตัวเลขสามเหลี่ยมจากสตริงอินพุต

n=v.size**0.5*1.4

เช่นขนาดของอินพุตสตริงคือ 120 และหมายเลขสามเหลี่ยม n ของเราจะเท่ากับ 15

puts" "*(n-i)+v[i*(i-1)/2,i].chars*" "

ในบรรทัดด้านบนจะพิมพ์ช่องว่างตามด้วยชุดของสตริงที่ดึงมาจากสายป้อนโดยใช้รูปแบบดังต่อไปนี้

[[0,0],[1,2],[3,5],[6,9]]

การใช้งาน:

f=->v{1.upto(n=v.size**0.5*1.4){|i|puts" "*(n-i)+v[i*(i-1)/2,i].chars*" "}}
f["Thisrunofcharactersismeanttohavealengththatcanbeexpressesasatriangularnumber.Diditwork?Youtellme,Ican'tcountverywell,ok?"]
              T
             h i
            s r u
           n o f c
          h a r a c
         t e r s i s
        m e a n t t o
       h a v e a l e n
      g t h t h a t c a
     n b e e x p r e s s
    e s a s a t r i a n g
   u l a r n u m b e r . D
  i d i t w o r k ? Y o u t
 e l l m e , I c a n ' t c o
u n t v e r y w e l l , o k ?

Pyth, 27 ไบต์

Js.IsSGlzWz+*-J=hZdjd<~>zZZ

                               z = input()
                               Z = 0
                               d = ' '
    sSG                        G -> tri(G)
  .I   lz                      Find the (float) input whose output is len(z).
 s                             Convert to int.
J                              Save as J.
         Wz                    while z:
               =hZ             Z += 1
            *-J  Zd            Generate J-Z spaces.
                      ~>zZ     Remove the first Z characters from z.
                     <    Z    Generate those first Z characters.
                   jd          Join on spaces.
           +                   Add the two together and print.

ชุดทดสอบ

วิธีการที่น่าสนใจ - .Iความจำเป็นและการใช้งาน น่าจะเป็นสนามกอล์ฟ

C, 138 136 134 ไบต์

รับสตริงเป็นอินพุต:

j,r,k,a;f(char*s){j=strlen(s);r=k=sqrt(1+8*j)/2;for(;r--;printf("\n")){for(j=r;j--;)printf(" ");for(j=k-r;j--;)printf("%c ",s[a++]);}}

วิธี Ruby 2 rev 1, 76 ไบต์

->s{s=s.chars*' '
0.upto(w=s.size**0.5-1){|i|puts' '*(w-i)+s[i*i+i,i*2+2]}}

ปรับให้เหมาะสมโดยใช้แนวคิดไวยากรณ์จากคำตอบของ Vasu Adari รวมถึงการบิดตัวของฉันเอง

วิธี Ruby 2 rev 0, 93 bytes

->s{s=s.chars.to_a.join(' ')
w=(s.size**0.5).to_i
w.times{|i|puts' '*(w-i-1)+s[i*i+i,i*2+2]}}

แนวทางที่แตกต่างอย่างสิ้นเชิง ก่อนอื่นเราจะเพิ่มช่องว่างระหว่างอักขระของอินพุต จากนั้นเราจะพิมพ์แถวทีละบรรทัด

วิธี Ruby 1, 94 ไบต์

->s{n=-1;w=((s.size*2)**0.5).to_i
(w*w).times{|i|print i/w+i%w<w-1?'':s[n+=1],-i%w==1?$/:' '}}

นี้จบลงนานเกินคาด

w มีจำนวนอักขระที่พิมพ์ได้ในแถวด้านล่างหรือเท่ากับจำนวนบรรทัด

ทุกบรรทัดมีwอักขระช่องว่าง ( บรรทัดสุดท้ายคือบรรทัดใหม่) ดังนั้นแนวคิดคือพิมพ์อักขระช่องว่างและแทรกอักขระที่พิมพ์ได้หากจำเป็น

Minkolang 0.14 , 42 ไบต์

(xid2;$I2*`,)1-[i1+[" "o]lrx" "$ii-1-D$O].

ลองที่นี่

คำอธิบาย

(                Open while loop
 x               Dump top of stack
  i              Loop counter (i)
   d2;           Duplicate and square
      $I2*       Length of input times two
          `,     Push (i^2) <= (length of input)
            )    Close for loop; pop top of stack and exit when it's 0

1-[                              Open for loop that repeats sqrt(len(input))-1 times
   i1+[                          Open for loop that repeats (loop counter + 1) times
       " "o                      Push a space then read in character from input
           ]                     Close for loop
            l                    Push 10 (newline)
             r                   Reverse stack
              x                  Dump top of stack
               " "               Push a space
                  $i             Push the max iterations of for loop
                    i-           Subtract loop counter
                      1-         Subtract 1
                        D        Pop n and duplicate top of stack n times
                         $O      Output whole stack as characters
                           ].    Close for loop and stop.

Python 2, 88 85 ไบต์

s=t=raw_input()
i=1
while s:print' '*int(len(t*2)**.5-i)+' '.join(s[:i]);s=s[i:];i+=1

ขอบคุณ xnor สำหรับการบันทึก 3 ไบต์

CJam, 50 ไบต์

q:QQ,1>{,{),:+}%:RQ,#:IR2ew<{~Q<>:LS*L,I+(Se[N}%}&

ลองที่นี่

คำอธิบาย

q:QQ,1>{  e# Only proceed if string length > 1, otherwise just print.
,{),:}%:R e# Generates a list of sums from 0 to k, where k goes from 0 to the length of the string [0,1,3,6,10,15,21,...]
Q,#:I     e# Find the index of the length of the string in the list
R2ew<     e# Make a list that looks like [[0,1],[1,3],[3,6],...,[?,n] ]where n is the length of the string 
{~Q<>:L   e# Use that list to get substrings of the string using the pairs as start and end indices
S*        e# Put spaces between the substrings
L,I+(Se[N e# (Length of the substring + Index of string length in sum array -1) is the length the line should be padded with spaces to. Add a new line at the end.
%}& 

JavaScript (ES6), 135 ไบต์

w=>{r='';for(s=j=0;j<w.length;j+=s++);for(i=j=0;w[j+i];j+=++i)r+=Array(s-i-1).join` `+w.slice(j,i+j+1).split``.join` `+'<br>';return r}

De-golf + demo:

function t(w) {
    r = '';
    for (s = j = 0; j < w.length; j += s++);
    for (i = j = 0; w[j + i]; j += ++i) r += Array(s - i - 1).join` ` + w.slice(j, i + j + 1).split``.join` ` + '<br>';
    return r;
}

document.write('<pre>' + t(prompt()));

Java, 258 194

แข็งแรงเล่นกอล์ฟ:

String f(String a){String r="";int t=(((int)Math.sqrt(8*a.length()+1))-1)/2-1;int i=0,n=0;while(n++<=t){for(int s=-1;s<t-n;++s)r+=" ";for(int j=0;j<n;++j)r+=a.charAt(i++)+" ";r+="\n";}return r;}

Ungolfed:

public class TriangulatingText {

  public static void main(String[] a) {
    // @formatter:off
    String[] testData = new String[] {
      "R",
      "cat",
      "monk3y",
      "meanIngfu1",
      "^/\\/|\\/[]\\",
      "Thisrunofcharactersismeanttohavealengththatcanbeexpressedasatriangularnumber.Diditwork?Youtellme,Ican'tcountverywell,ok?",
    };
    // @formatter:on

    for (String data : testData) {
      System.out.println("f(\"" + data + "\")");
      System.out.println(new TriangulatingText().f(data));
    }
  }

  // Begin golf
  String f(String a) {
    String r = "";
    int t = (((int) Math.sqrt(8 * a.length() + 1)) - 1) / 2 - 1;
    int i = 0, n = 0;
    while (n++ <= t) {
      for (int s = -1; s < t - n; ++s)
        r += " ";
      for (int j = 0; j < n; ++j)
        r += a.charAt(i++) + " ";
      r += "\n";
    }
    return r;
  }
  // End golf
}

ผลลัพธ์ของโปรแกรม:

f("R")
R 

f("cat")
 c 
a t 

f("monk3y")
  m 
 o n 
k 3 y 

f("meanIngfu1")
   m 
  e a 
 n I n 
g f u 1 

f("^/\/|\/[]\")
   ^ 
  / \ 
 / | \ 
/ [ ] \ 

f("Thisrunofcharactersismeanttohavealengththatcanbeexpressedasatriangularnumber.Diditwork?Youtellme,Ican'tcountverywell,ok?")
              T 
             h i 
            s r u 
           n o f c 
          h a r a c 
         t e r s i s 
        m e a n t t o 
       h a v e a l e n 
      g t h t h a t c a 
     n b e e x p r e s s 
    e d a s a t r i a n g 
   u l a r n u m b e r . D 
  i d i t w o r k ? Y o u t 
 e l l m e , I c a n ' t c o 
u n t v e r y w e l l , o k ? 

JavaScript (ES6), 106 ไบต์

a=>(y=z=0,(f=p=>p?" ".repeat(--p)+a.split``.slice(y,y+=++z).join` `+`
`+f(p):"")(Math.sqrt(2*a.length)|0))

ใช้การสอบถามซ้ำแทน for for loop เพื่อสร้างสตริง

เมื่อต้องการค้นหาความยาวของแถวที่ยาวที่สุดที่ใช้สูตรสำหรับจำนวนสามเหลี่ยมที่ n เป็นT_n T_n = (n^2 + n)/2ให้nและแก้ปัญหาการT_nใช้สูตรสมการกำลังสองเรามี:

1/2 * n^2 + 1/2 * n - T_n = 0

a = 1/2, b = 1/2, c = -T_n

-1/2 + sqrt(1/2^2 - 4*1/2*-T_n)   
------------------------------- = sqrt(1/4 + 2*T_n) - 1/2
             2*1/2

ปรากฎว่าหลังจากที่พื้นเพิ่ม 1/4 Math.sqrt(2*a.length)|0ภายในรากที่ไม่เปลี่ยนแปลงผลจึงสูตรสำหรับแถวที่ยาวที่สุดคือ

TeaScriptขนาด 44 ไบต์

r(m=$s(2*xn)|0)ßp.R(m-i)+x·.S(v,v+=Æw)jø+§)µ

วิธีนี้ใช้วิธีเดียวกับคำตอบ JavaScriptของฉันแต่สั้นกว่ามาก

Ungolfed

r(m=$s(2*xn)|0)m(#p.R(m-i)+xs``.S(v,v+=++w)j` `+`
`)j``

Powershell, 69 ไบต์

($args|% t*y|?{$r+="$_ ";++$p-gt$l}|%{$r;rv r,p;$l++})|%{' '*--$l+$_}

สคริปต์ทดสอบ golfed น้อย:

$f = {

(
    $args|% t*y|?{  # test predicate for each char in a argument string 
        $r+="$_ "   # add current char to the result string
        ++$p-gt$l   # return predicate value: current char posision is greater then line num
    }|%{            # if predicate is True
        $r          # push the result string to a pipe
        rv r,p      # Remove-Variable r,p. This variables will be undefined after it.
        $l++        # increment line number
    }

)|%{                # new loop after processing all characters and calculating $l
    ' '*--$l+$_     # add spaces to the start of lines
}                   # and push a result to a pipe

}

@(
    ,("R",
    "R ")

    ,("cat",
    " c ",
    "a t ")

    ,("monk3y",
    "  m ",
    " o n ",
    "k 3 y ")

    ,("meanIngfu1",
    "   m ",
    "  e a ",
    " n I n ",
    "g f u 1 ")

    ,("^/\/|\/[]\",
    "   ^ ",
    "  / \ ",
    " / | \ ",
    "/ [ ] \ ")

    ,("Thisrunofcharactersismeanttohavealengththatcanbeexpressedasatriangularnumber.Diditwork?Youtellme,Ican'tcountverywell,ok?",
    "              T ",
    "             h i ",
    "            s r u ",
    "           n o f c ",
    "          h a r a c ",
    "         t e r s i s ",
    "        m e a n t t o ",
    "       h a v e a l e n ",
    "      g t h t h a t c a ",
    "     n b e e x p r e s s ",
    "    e d a s a t r i a n g ",
    "   u l a r n u m b e r . D ",
    "  i d i t w o r k ? Y o u t ",
    " e l l m e , I c a n ' t c o ",
    "u n t v e r y w e l l , o k ? ")

    ,("*/\/|\/|o\/|o|\/o|o|\/||o|o\/o|||o|\/o||o|||\/||o|||o|\/|o|||o||o\",
    "          * ",
    "         / \ ",
    "        / | \ ",
    "       / | o \ ",
    "      / | o | \ ",
    "     / o | o | \ ",
    "    / | | o | o \ ",
    "   / o | | | o | \ ",
    "  / o | | o | | | \ ",
    " / | | o | | | o | \ ",
    "/ | o | | | o | | o \ ")

) | % {
    $s,$expected = $_
    $result = &$f $s
    "$result"-eq"$expected"
    $result
}

เอาท์พุท:

True
R
True
 c
a t
True
  m
 o n
k 3 y
True
   m
  e a
 n I n
g f u 1
True
   ^
  / \
 / | \
/ [ ] \
True
              T
             h i
            s r u
           n o f c
          h a r a c
         t e r s i s
        m e a n t t o
       h a v e a l e n
      g t h t h a t c a
     n b e e x p r e s s
    e d a s a t r i a n g
   u l a r n u m b e r . D
  i d i t w o r k ? Y o u t
 e l l m e , I c a n ' t c o
u n t v e r y w e l l , o k ?
True
          *
         / \
        / | \
       / | o \
      / | o | \
     / o | o | \
    / | | o | o \
   / o | | | o | \
  / o | | o | | | \
 / | | o | | | o | \
/ | o | | | o | | o \

C #, 202

string r(string s,List<string> o,int i=1){o=o.Select(p=>" "+p).ToList();o.Add(String.Join(" ",s.Substring(0,i).ToCharArray()));return s.Length==i?String.Join("\n",o):r(s.Substring(i,s.Length-i),o,i+1);}

ฉันไม่รู้ว่านี่เป็นกฎหมายในการเขียนโค๊ตกอล์ฟหรือไม่ ฉันไม่สามารถหาวิธีเรียกคืนสิ่งนี้ได้หากไม่ได้ประกาศ List <string> ไว้ภายนอกฟังก์ชั่นดังนั้นฉันจึงใช้เป็นพารามิเตอร์

การใช้งาน:

 r("1",new List<string>());
 r("123", new List<string>());
 r("123456", new List<string>());
 r("Thisrunofcharactersismeanttohavealengththatcanbeexpressedasatriangularnumber.Diditwork?Youtellme,Icanstcountverywell,ok?",new List<string>());

C, 102 ไบต์

i,j;main(n,s){for(n=sqrt(strlen(gets(s))*2);j<n;printf("%*.1s",i>1?2:i*(n-j),i++>j?i=!++j,"\n":s++));}

Bash + sed, 87

for((;i<${#1};i+=j));{
a+=(${1:i:++j})
}
printf %${j}s\\n ${a[@]}|sed 's/\S/ &/g;s/.//'

R, 142 ไบต์

ค่อนข้างแน่ใจว่าฉันจะได้รับสิ่งนี้มากขึ้น ยังคงทำงานในที่แม้ว่า ฉันรู้สึกว่าฉันไม่มีการสอบถามซ้ำง่าย ๆ - แต่ฉันไม่สามารถย่อให้สั้นลงได้

f=function(a){n=nchar(a);l=which(cumsum(1:n)==n);w=strsplit(a,c())[[1]];for(i in 1:l){cat(rep(" ",l-i),sep="");cat(w[1:i],"\n");w=w[-(1:i)]}}

ungolfed

f=function(a){
    n = nchar(a)                 #number of characters
    l= which(cumsum(1:n)==n)     #which triangle number
    w= strsplit(a,c())[[1]]      #Splits string into vector of characters
    for (i in 1:l) {
        cat(rep(" ",l-i),sep="") #preceeding spaces
        cat(w[1:i],"\n")         #Letters
        w=w[-(1:i)]              #Shifts removes letters (simplifies indexing)
    }
}

05AB1E , 11 ไบต์

ā£õKεSðý}.c

ลองออนไลน์!