Bagi mereka yang tidak terbiasa dengan Pola Kacang polong , ini adalah pola matematika sederhana.

Ada beberapa variasi dari pola ini, tetapi kami akan fokus dalam satu:

Pola Kacang Ascending

Ini terlihat seperti ini:

1
11
21
1112
3112
211213
...

Tampaknya sangat sulit untuk mendapatkan baris berikut, tetapi sangat mudah. Cara untuk mendapatkan baris berikutnya adalah dengan menghitung berapa kali angka telah diulang pada baris sebelumnya (mulai menghitung dengan yang terendah, hingga terbesar):

one
one one
two ones
one one, one two
three ones, one two
two ones, one two, one three
...

Persyaratan / Aturan:

• Kami akan mulai 1
• Itu akan menjadi cuplikan
• Harus ada cara untuk menentukan jumlah baris yang dihasilkan (mis. 5 Akan memberikan 5 baris pertama)
• Kode harus sesingkat mungkin
• Itu harus mulai menghitung dari terendah ke terbesar (variasi Ascending)

APL, 32 karakter

⍪⌽({⍵,⍨,/{⌽⍵,+/⍵⍷d}¨⍳⌈/d←⊃⍵}⍣⎕)1

Ini menghasilkan baris mulai dari 0 (yaitu 0menghasilkan 1, 1menghasilkan 1diikuti oleh 1 1, dll.), Seperti yang ditentukan oleh input pengguna. Saya menggunakan Dyalog APL untuk ini, dan ⎕IOharus ditetapkan ke default 1.

Contoh:

      ⍪⌽({⍵,⍨,/{⌽⍵,+/⍵⍷d}¨⍳⌈/d←⊃⍵}⍣⎕)1
⎕:
      0
1

      ⍪⌽({⍵,⍨,/{⌽⍵,+/⍵⍷d}¨⍳⌈/d←⊃⍵}⍣⎕)1
⎕:
      13
               1 
             1 1 
             2 1 
         1 1 1 2 
         3 1 1 2 
     2 1 1 2 1 3 
     3 1 2 2 1 3 
     2 1 2 2 2 3 
     1 1 4 2 1 3 
 3 1 1 2 1 3 1 4 
 4 1 1 2 2 3 1 4 
 3 1 2 2 1 3 2 4 
 2 1 3 2 2 3 1 4 
 2 1 3 2 2 3 1 4

Setelah saya mendapatkan waktu lagi, saya akan menulis penjelasan. ⍨

Python (2.x), 81 80 karakter

l='1'
exec"print l;l=''.join(`l.count(k)`+k for k in sorted(set(l)))\n"*input()

Semua tips atau komentar diterima!

penggunaan: python peapattern.py
15 # masukkan jumlah iterasi
1
11
21
1112
3112
211213
312213
212223
114213
31121314
41122314
31221324
21322314
21322314
21322314

Perl, 83

Saya cukup yakin beberapa guru Perl bisa mengalahkan ini, tapi begini:

$_++;$n=<>;for(;$n--;){print$_.$/;$r='';$r.=length($&).$1 while(s/(.)\1*//);$_=$r;}

Diperluas:

$_++;$n=<>;

for(;$n--;)
{
    print $_.$/;

    $r='';$r .= length($&).$1 while (s/(.)\1*//);  # The magic
    $_=$r;
}

Jumlah baris dilewatkan melalui STDIN.

J, 60 46 39 26 karakter

1([:,(#,{.)/.~@/:~)@[&0~i.

Sunting 3 : Datang dengan cara yang lebih baik untuk mengekspresikan ini.

1([:;[:|."1[:/:~~.,.[:+/"1[:~.=)@[&0~i.

Sunting 2 : Akhirnya menemukan cara untuk memindahkan argumen ke akhir urutan dan menyingkirkan hal-hal tugas yang tidak perlu.

Sebelumnya:

p=.3 :'([:,[:|."1[:/:~~.,.[:+/"1[:~.=)^:(i.y)1

Sunting 1 : Memperbaiki output yang seharusnya ybaris daripada baris yke - th. Juga mempersingkat hal-hal sedikit. Malu tentang 0s, sepertinya tidak bisa menyingkirkan barang-barang sialan itu.

Pemakaian:

   1([:,(#,{.)/.~@/:~)@[&0~i. 1
1

   1([:,(#,{.)/.~@/:~)@[&0~i. 6
1 0 0 0 0 0
1 1 0 0 0 0
2 1 0 0 0 0
1 1 1 2 0 0
3 1 1 2 0 0
2 1 1 2 1 3

   1([:,(#,{.)/.~@/:~)@[&0~i. 10
1 0 0 0 0 0 0 0
1 1 0 0 0 0 0 0
2 1 0 0 0 0 0 0
1 1 1 2 0 0 0 0
3 1 1 2 0 0 0 0
2 1 1 2 1 3 0 0
3 1 2 2 1 3 0 0
2 1 2 2 2 3 0 0
1 1 4 2 1 3 0 0
3 1 1 2 1 3 1 4

Diakui penggunaannya lebih buruk sekarang, tetapi kecantikan bukan nama permainan di sini ...

Haskell, 116

import Data.List
main=interact(unlines.map(show=<<).($iterate((>>=
 \x->[length x,head x]).group.sort)[1]).take.read)

Pemakaian:

$ runhaskell pea.hs <<< 15
1
11
21
1112
3112
211213
312213
212223
114213
31121314
41122314
31221324
21322314
21322314
21322314

Gangguan Umum, 140 karakter

(defun m(x)
  (labels((p(l n)
    (if(= 0 n)
       nil
       (cons l
             (p(loop for d in(sort(remove-duplicates l)#'<)
                  append(list(count d l)d))
               (1- n))))))
    (p'(1) x)))

Ini adalah Lisp, jadi fungsinya mengembalikan daftar daftar. (mx) menghasilkan X sublists.

Mathematica, 70

NestList[FromDigits@TakeWhile[DigitCount@#~Riffle~Range@9,#>0&]&,1,#]&

Jelly , 13 11 byte (Umpan balik dihargai)

1ṢŒrUFƲСṖY

Cobalah online!

1ṢŒrUFƲСṖY
1     Ʋ         starting with 1, run these 4 links...
 ṢŒr            Ṣort the list and get the Œrun-length encoding of it,
    U           reverse each member of the RLE list (so it goes [repetitions, digit] instead of [digit, repetitions]),
     F          and Flatten the RLE list-of-lists to just a list of digits, which is the next number.
       С       do that (input) number of times,
         ṖY     Ṗop the last line off the output (an extra line is always calculated) and then print the numbers, separated by newlines.