Bạn phải tạo ra một hàm slồng một chuỗi bên trong một mảng, nlần

>>> N("stackoverflow",2)
[['stackoverflow']]

Thông số:

1. s - Một chuỗi ascii
2. n - Một số nguyên >= 0

Quy tắc

• Mã ngắn nhất sẽ thắng.
• Đầu ra sẽ là một lồng nhau array, listhoặc tuple(hoặc loại tương tự dựa trên một mảng)

Các trường hợp thử nghiệm

>>> N("stackoverflow",0)
'stackoverflow'
>>> N("stackoverflow",1)
['stackoverflow']
>>> N("stackoverflow",5)
[[[[['stackoverflow']]]]]

_{Lấy cảm hứng từ: Lồng một chuỗi trong danh sách n lần tức là danh sách danh sách danh sách}

Thạch , 2 byte

W¡

Hơi khó hiểu, vì: (1) Jelly không có chuỗi, chỉ có danh sách các ký tự; và 2); đầu ra sẽ không hiển thị lồng nhau. Để thấy rằng điều này thực sự đang làm những gì được yêu cầu, hãy nhìn vào biểu diễn chuỗi Python của kết quả với:

W¡ŒṘ

Một cặp bổ sung []sẽ có mặt vì chính chuỗi sẽ là một danh sách các ký tự. Ví dụ

Làm sao?

W¡ - Main link: s, n
W  - wrap left, initially s, in a list
 ¡ - repeat previous link n times

Mã bằng chứng khái niệm cho biết thêm:

W¡ŒṘ - Main link: s, n
  ŒṘ - Python string representation

Java và C #, 62 byte

Object f(String s,int n){return n<1?s:new Object[]{f(s,n-1)};}

Nên hoạt động mà không sửa đổi trong cả Java và C #.

05AB1E , 3 byte

Mã

`F)

Giải trình

`   # Flatten the input array on the stack.
 F  # Element_2 times do:
  ) # Wrap the total stack into a single array.

Điều này có nghĩa là điều này cũng hoạt động cho 0 -testcase, vì chuỗi đã có trên ngăn xếp.

Hãy thử trực tuyến!

JavaScript (ES6), 20 byte

d=>g=n=>n--?[g(n)]:d

Mặc dù mọi người thường cằn nhằn tôi để kiềm chế các chức năng của tôi để tiết kiệm 1 byte, đây là trường hợp nó thực sự đóng góp cho giải pháp.

Toán học, 13 byte

List~Nest~##&

CJam , 7 6 byte

{{a}*}

Phiên dịch trực tuyến

Đây là một hàm không tên, lấy các đối số của nó từ ngăn xếp S N, Slà chuỗi và Nlà kết thúc tốt đẹp. Bạn có thể thực hiện nó với ~toán tử, có nghĩa là eval.

Giải trình:

{{a}*}
{      Open block    [A B]
 {     Open block    [A]
  a    Wrap in array [[A]]
   }   Close block   [A B λwrap]
    *  Repeat        [A:wrap(*B)]
     } Close block   ["S" N λ(λwrap)repeat]

Javascript ES6, 23 byte

Hàm đệ quy

f=(a,i)=>i?f([a],--i):a

console.log(f("stackoverflow",0))
console.log(f("stackoverflow",1))
console.log(f("stackoverflow",2))
console.log(f("stackoverflow",5))

Kết quả cà ri trong cùng một chiều dài

f=a=>i=>i?f([a])(--i):a

Brachylog , 10 byte

tT,?h:T:gi

Hãy thử trực tuyến!

Giải trình

tT,            T is the integer (second element of the Input)
   ?h:T:g      The list [String, T, built-in_group]
         i     Iterate: Apply built-in_group T times to String

Đây sẽ là 3 byte nếu nó không bị lỗi. Ở đây chúng tôi cần tất cả điều này để có được danh sách [String, T, built-in_group]mặc dù [String, T]đã là đầu vào của chúng tôi.

Thật không may, :gkết quả trực tiếp [[String, T], built-in_group], không được nhận dạng đúng bởi ivì số nguyên Tnằm trong danh sách đầu tiên.

MATL, 6 byte

ji:"Xh

Điều này tạo ra một mảng ô lồng nhau làm đầu ra. Tuy nhiên, với màn hình mặc định của MATL, bạn không thể thấy đó là gì vì nó sẽ không hiển thị tất cả các dấu ngoặc nhọn. Bản demo dưới đây là một phiên bản sửa đổi một chút cho thấy đại diện chuỗi của đầu ra.

ji:"Xh]&D

Dùng thử trực tuyến

Giải trình

j       % Explicitly grab the first input as a string
i       % Explicitly grab the second input as an integer (n)
:"      % Create an array [1...n] and loop through it
    Xh  % Each time through the loop place the entire stack into a cell array
        % Implicit end of for loop and display

Pyke, 3 byte

V]1

Hãy thử nó ở đây!

Bình thường , 3 byte

]Fw

Permalink

Điều này sẽ tạo ra một cái gì đó như ...[[[[['string']]]]].... Nó sẽ không trích dẫn cho độ sâu bằng không : string.

Giải trình:

]Fw
   Q Implicit: Eval first input line
]    Function: Wrap in array
  w  Input line
 F   Apply multiple times

Nếu bạn muốn trích dẫn ở độ sâu 0, thay vào đó, hãy sử dụng giải pháp 4 byte này (giải thích):

`]Fw
    Q Implicit: Eval first input line
 ]    Function: Wrap in array
   w  Input line
  F   Apply multiple times
`     Representation

PHP, 60 byte

for($r=$argv[1];$i++<$argv[2];)$r=[$r];echo json_encode($r);

48 byte nếu nó trông giống như nhiệm vụ

for($r=$argv[1];$i++<$argv[2];)$r="[$r]";echo$r;

Ruby: 23 byte

->n,s{n.times{s=[s]};s}

Điều này được cập nhật để làm cho nó trở thành một Proc có thể gọi được chứ không phải là đoạn gốc. Tôi muốn biết liệu có cách nào để shoàn toàn quay lại thay vì phải trả lại một cách rõ ràng không.

C, 44 byte , 41 byte

int*n(int*s,int a){return a?n(&s,a-1):s;}

Bạn có thể kiểm tra nó bằng cách làm như sau:

int main(void) {
    char* s = "stackoverflow";

    /* Test Case 0 */
    int* a = n(s,0);
    printf("'%s'\n", a);

    /* Test Case 1 */
    int* b = n(s,1);
    printf("['%s']\n", *b);

    /* Test Case 2 */
    int** c = n(s,2);
    printf("[['%s']]\n", **c);

    /* Test Case 3 */
    int*** d = n(s,3);
    printf("[[['%s']]]\n", ***d);

    /* Test Case 4 */
    int********** e = n(s,10);
    printf("[[[[[[[[[['%s']]]]]]]]]]\n", **********e);

    return 0;
}

Đầu ra:

'stackoverflow'
['stackoverflow']
[['stackoverflow']]
[[['stackoverflow']]]
[[[[[[[[[['stackoverflow']]]]]]]]]]

Tất nhiên, bạn sẽ nhận được cảnh báo. Điều này hoạt động trên gccbash trên máy Windows của tôi ( gcc version 4.8.4 (Ubuntu 4.8.4-2ubuntu1~14.04.3)cũng như trên máy Linux thực sự ( gcc version 4.6.3 (Ubuntu/Linaro 4.6.3-1ubuntu5)).

Python, 32 byte

N=lambda s,n:n and[N(s,n-1)]or s

Ruby, 25 ký tự

Viết lại của jamylak 's giải pháp Python .

f=->s,n{n>0?[f[s,n-1]]:s}

Chạy mẫu:

irb(main):001:0> f=->s,n{n>0?[f[s,n-1]]:s}
=> #<Proc:0x00000002006e80@(irb):1 (lambda)>

irb(main):002:0> f["stackoverflow",0]
=> "stackoverflow"

irb(main):003:0> f["stackoverflow",1]
=> ["stackoverflow"]

irb(main):004:0> f["stackoverflow",5]
=> [[[[["stackoverflow"]]]]]

C # 6, 50 byte

dynamic a(dynamic s,int n)=>n<2?s:a(new[]{s},n-1);

Ruby, 24 byte

f=->*s,n{s[n]||f[s,n-1]}

Được gọi giống như trong câu trả lời của manatwork , nhưng thực hiện kỳ ​​lạ. *skết thúc đầu vào (một chuỗi có thể lồng nhau) trong một mảng. Sau đó, nếu nbằng 0, s[n]trả về phần tử đầu tiên của s, biến hàm thành no-op. Mặt khác, nó trả về nilvì ssẽ chỉ có một phần tử, vì vậy chúng tôi chuyển qua cuộc gọi đệ quy.

V , 6 byte

Àñys$]

Hãy thử trực tuyến!

Giải trình:

À      "Arg1 times
 ñ     "repeat:
  ys$  "surround this line
     ] "with square brackets

Perl 6 , 23 byte

{($^a,{[$_]}...*)[$^b]}

Mở rộng:

{ # bare block lambda with two placeholder parameters ｢$a｣ and ｢$b｣
  (

    # generate Sequence

    $^a,       # declare first input
    { [ $_ ] } # lambda that adds one array layer
    ...        # do that until
    *          # Whatever

  )[ $^b ]     # index into the sequence
}

Agda, 173 byte

Vì kiểu trả về của hàm phụ thuộc vào số được đưa ra làm đối số, nên đây rõ ràng là trường hợp nên sử dụng ngôn ngữ được gõ phụ thuộc. Thật không may, chơi golf không dễ dàng trong một ngôn ngữ mà bạn phải nhập khẩu tự nhiên và danh sách để sử dụng chúng. Về mặt tích cực, họ sử dụng sucnơi mà tôi mong đợi dài dòng succ. Vì vậy, đây là mã của tôi:

module l where
open import Data.List
open import Data.Nat
L : ℕ -> Set -> Set
L 0 a = a
L(suc n)a = List(L n a)
f : ∀ n{a}-> a -> L n a
f 0 x = x
f(suc n)x = [ f n x ]

(Tôi hy vọng tôi thấy tất cả những nơi mà không gian có thể được bỏ qua.) LLà một chức năng kiểu đó được đưa ra một cách tự nhiên nvà một kiểu atrả về loại nlần lồng danh sách a, vì vậy L 3 Boolsẽ là loại danh sách các danh mục danh mục Bool(nếu chúng ta có nhập khẩu Bool). Điều này cho phép chúng ta thể hiện loại hàm của chúng ta (n : ℕ) -> {a : Set} -> a -> L n a, trong đó các dấu ngoặc nhọn làm cho đối số đó ẩn. Mã sử ​​dụng một cách ngắn hơn để viết loại này. Bây giờ hàm có thể được định nghĩa một cách rõ ràng bằng cách khớp mẫu trên đối số đầu tiên.

Tải tệp này với .agdaphần mở rộng vào emacs cho phép sử dụng C-c C-n(đánh giá thuật ngữ thành dạng thông thường), ví dụ nhập f 2 3và nhận câu trả lời đúng trong một hình thức khó xử : (3 ∷ []) ∷ []. Bây giờ tất nhiên nếu bạn muốn làm điều đó với chuỗi, bạn phải nhập chúng ...

k, 3 byte

,:/

Được thực hiện như một hàm dyadic, /sẽ lặp lại áp dụng hàm bên trái ,:( enlist) n lần cho đối số thứ hai.

Thí dụ:

k),:/[3;"hello"]
,,,"hello"

PHP, 44 byte

function n($s,$n){return$n?n([$s],--$n):$s;}

không có gì tinh vi, chỉ là một hàm đệ quy

Python 2, 32 byte

lambda s,n:eval('['*n+`s`+']'*n)

Đặt ndấu ngoặc mở trước chuỗi và nđóng ngoặc trước nó, sau đó tránh kết quả. Nếu một đầu ra chuỗi được cho phép, evalcó thể được gỡ bỏ.

Trên thực tế , 4 byte

Đầu vào là stringsau đó n. Gợi ý chơi golf chào mừng. Hãy thử trực tuyến!

`k`n

Ungolfing

          Implicit input string, then n.
`...`n    Run the function n times.
  k         Wrap the stack in a list.
          Implicit return.

R, 39 40 byte

EDIT: Đã sửa lỗi n=0nhờ @rturnbull.

Hàm lấy hai đầu vào s(chuỗi) và n(lồng nhau) và xuất ra danh sách lồng nhau. listTuy nhiên, lưu ý rằng lớp R thực sự in đầu ra khác với hầu hết các ngôn ngữ khác, tuy nhiên, có chức năng tương tự như bản đồ khóa / giá trị (với các khóa có thể chưa được đặt tên) hoặc danh sách trong python.

f=function(s,n)if(n)list(f(s,n-1))else s

Thí dụ

> f=function(s,n)if(n)list(f(s,n-1))else s
> f("hello",3)
[[1]]
[[1]][[1]]
[[1]][[1]][[1]]
[1] "hello"


> # to access the string nested 5 times in the "list-object" named "list" we can do the following
> list = f("nested string",5)
> list[[1]][[1]][[1]][[1]][[1]]
[1] "nested string"

Vợt 83 byte

(for((c n))(set! s(apply string-append(if(= c 0)(list"[\'"s"\']")(list"["s"]")))))s

Ung dung:

(define (f s n)
  (for ((c n))
    (set! s (apply string-append
                   (if (= c 0)
                       (list "[\'" s "\']")
                       (list "[" s "]"))
                   )))
  s)

Kiểm tra:

(f "test" 3)

Đầu ra:

"[[['test']]]"

Haskell, 40 38 byte

data L=N[Char]|C L 
f 0=N
f n=C. f(n-1)

Hệ thống loại nghiêm ngặt của Haskell ngăn trả về các loại khác nhau (Chuỗi so với Danh sách Chuỗi so với Danh sách Chuỗi, ...), vì vậy tôi phải xác định loại riêng phù hợp với tất cả các trường hợp đó. Hàm chính fgọi đệ quy nlần hàm tạo Cđể lồng và Ncho trường hợp cơ sở.

Ví dụ sử dụng ( deriving (Show)được thêm vào dataloại mới để có thể in nó): f 4 "codegolf"-> C (C (C (C (N "codegolf")))).

Chỉnh sửa: @Christian Sievers đã lưu 2 byte bằng cách viết lại hàm theo kiểu không có điểm cho đối số chuỗi. Cảm ơn!

tinylisp (thay thế), 34 byte

(d F(q((S N)(i N(F(c S())(s N 1))S

Xác định một hàm F. Về mặt kỹ thuật, tinylisp không có chuỗi, nhưng mã này sẽ hoạt động với mọi loại dữ liệu được cung cấp.

Ungolfed (khóa để xây dựng: d= xác định, q= quote, i= if, c= cons, s= trừ):

(d nest
 (q
  ((item number)
   (i number
    (nest (c item ()) (s number 1))
    item))))

Ví dụ sử dụng:

tl> (d F(q((S N)(i N(F(c S())(s N 1))S
F
tl> (F 2 3)
(((2)))
tl> (F () 1)
(())
tl> (F (q Hello!) 7)
(((((((Hello!)))))))
tl> (F c 3)
(((<builtin function tl_cons>)))

Clojure, 24 byte

#(nth(iterate list %)%2)

Clojure có phần cạnh tranh ở đây. iteratetạo ra một chuỗi x, (f x), (f (f x)) ..., nthtrả về phần tử cần thiết.

Xem trực tuyến: https://ideone.com/2rQ166