세부

정수만 포함하는 배열 (또는 목록)이 주어지면 모든 하위 요소가 반전 된 배열을 반환하거나 출력하는 함수 나 프로그램을 작성하십시오. 즉, 가장 깊은 배열의 모든 요소를 ​​뒤집은 다음 두 번째 가장 깊은 요소 등을 뒤집습니다. 크기를 지정할 필요는 없지만 함수 또는 프로그램은 프로그래밍 언어의 기본 형식으로 들쭉날쭉 한 배열 에 합니다.

예

이:

[[1,2], [3,4]]

이것이 될 것입니다 :

[[4,3], [2,1]]

이:

[[[ 1, 2, 3], [ 4, 5, 6], [ 7, 8, 9]],
 [[10,11,12], [13,14,15], [16,17,18]],
 [[19,20,21], [22,23,24], [25,26,27]],
 [[28,29,30], [31,32,33], [34,35,36]],
 [[37,38,39], [40,41,42], [43,44,45]],
 [[46,47,48], [49,50,51], [52,53,54]]]

이것이 될 것입니다 :

[[[54,53,52], [51,50,49], [48,47,46]],
 [[45,44,43], [42,41,40], [39,38,37]],
 [[36,35,34], [33,32,31], [30,29,28]],
 [[27,26,25], [24,23,22], [21,20,19]],
 [[18,17,16], [15,14,13], [12,11,10]],
 [[ 9, 8, 7], [ 6, 5, 4], [ 3, 2, 1]]]

이:

[[[1,2]],
 [[3,4], [5]],
 [[6,7,8], [9], [10,11]],
 [[[12,13], [14,15]], [16], [17,18,19,20]],
 [21]]

이것이 될 것입니다 :

[[21],
 [[20,19,18,17], [16], [[15,14], [13,12]]],
 [[11,10], [9], [8,7,6]],
 [[5], [4,3]],
 [[2,1]]]

보너스

이것은 일부 객체 지향 프로그래밍 언어 에서 대답을 희망적으로 장려 할 것입니다. …

바이트 수 -50 % 프로그램이 다양한 유형의 멤버 (객체 형식 일 수 있음)를 가진 배열 (또는 목록)을 입력으로 취하고 모든 배열을 성공적으로 되돌릴 수있는 경우.

이:

[["Foo",["Bar",1]],
  2,
 ["Baz"],
 [[["Qux"],3],3.14]]

이것이 될 것입니다 :

[[3.14,[3,["Qux"]]],
 ["Baz"],
  2,
 [[1,"Bar"],"Foo"]]

답변

L?+IbY_yMbb

L?+IbY_yMbb
L             define a function y(b), that returns:
 ?+IbY           if b + [] == b (test if b is a list):
      _yMb           recursively call y on all elements in b, then reverse the list
          b      else: b

{∇¨⍣(×|≡⍵)⌽⍵}

{∇¨⍣(×≡⍵){0::⌽⍵⋄⍎⌽⍕⍵}⍵}

a(X,Y):-reverse(X,Z),maplist(a,Z,Y);X=Y.

f=lambda x:map(f,x)[::-1]if"">x>[]else x

(defun g(x)(if(atom x)x(mapcar'g(reverse x))))

Quiet[Reverse//@#]/.Reverse->(#&)&

(defn f[x](if(coll? x)(reverse(map f x))x))