การเตตเตจ, แทนด้วยa^^b, เป็นการยกกำลังซ้ำ ตัวอย่างเช่น2^^3คือ2^2^2ซึ่งคือ 16

ได้รับตัวเลขสองและขพิมพ์a^^b

กรณีทดสอบ

1 2 -> 1
2 2 -> 4
5 2 -> 3125
3 3 -> 7625597484987
etc.

^{สัญลักษณ์ทางวิทยาศาสตร์เป็นที่ยอมรับ}

จำไว้ว่านี่คือcode-golfดังนั้นโค้ดที่มีจำนวนไบต์น้อยที่สุดจะเป็นผู้ชนะ

Dyalog APL ขนาด 3 ไบต์

*/⍴

TryAPL

คำอธิบาย

*/⍴  Input: b (LHS), a (RHS)
  ⍴  Create b copies of a
*/   Reduce from right-to-left using exponentation

J, 5 4 ไบต์

^/@#

นี่คือความหมายของคำบรรยาย

การใช้

   f =: ^/@#
   3 f 2
16
   2 f 1
1
   2 f 2
4
   2 f 5
3125
   4 f 2
65536

คำอธิบาย

^/@#  Input: b (LHS), a (RHS)
   #  Make b copies of a
^/@   Reduce from right-to-left using exponentation

Haskell, 19 ไบต์

a%b=iterate(a^)1!!b

วนซ้ำ exponentiating เริ่มต้นที่1จะสร้างรายการ[1,a,a^a,a^a^a,...]แล้วใช้bองค์ประกอบ '

ความยาวเท่ากันโดยตรง:

a%0=1;a%b=a^a%(b-1)

จุดฟรียาวกว่า:

(!!).(`iterate`1).(^)

Mathematica ขนาด 16 ไบต์

Power@@Table@##&

คำอธิบาย

Table@##

ทำสำเนาข

Power@@...

ยกกำลัง

Python ขนาด 30 ไบต์

f=lambda a,b:b<1or a**f(a,b-1)

ใช้นิยามแบบเรียกซ้ำ

Python ขนาด 33 ไบต์

lambda a,b:eval('**'.join([a]*b))

สิ่งนี้ประเมินว่าเป็นฟังก์ชั่นที่ไม่มีชื่อซึ่งใช้การแทนค่าสตริงของตัวเลขและตัวเลข ตัวอย่างเช่น:

>>> f=lambda a,b:eval('**'.join([a]*b))
>>> f('5',2)
3125
>>>

หากรูปแบบอินพุตผสมเช่นนี้จะไม่นับรวมถึงรุ่น 38 ไบต์นี้ด้วย:

lambda a,b:eval('**'.join([str(a)]*b))

เยลลี่ 4 ไบต์

x*@/

ลองออนไลน์! หรือตรวจสอบกรณีทดสอบทั้งหมด

มันทำงานอย่างไร

x*@/  Main link. Arguments: a, b

x     Repeat [a] b times.
 *@/  Reduce the resulting array by exponentation with swapped arguments.

Perl, 19 ไบต์

รวม +1 สำหรับ -p

กำหนดหมายเลขในบรรทัดแยกบน STDIN

tetration.pl
2
3
^D

tetration.pl

#!/usr/bin/perl -p
$_=eval"$_**"x<>.1

R, 39 ไบต์

ฟังก์ชั่นวนซ้ำ:

f=function(a,b)ifelse(b>0,a^f(a,b-1),1)

องค์ประกอบ 11 ไบต์

__2:':1[^]`

ลองออนไลน์!

นี่เป็นเพียงการยกกำลัง "ตรงไปตรง" ในลูป

__2:':1[^]`
__              take two values as input (x and y)
  2:'           duplicate y and send one copy to the control stack
     :          make y copies of x
      1         push 1 as the initial value
       [ ]      loop y times
        ^       exponentiate
          `     print result

JavaScript (ES7), 24 ไบต์

f=(a,b)=>b?a**f(a,b-1):1

รุ่น ES6 คือ 33 ไบต์:

f=(a,b)=>b?Math.pow(a,f(a,b-1)):1

dc, 35 29 ไบต์:

?dsdsa?[ldla^sa1-d1<b]dsbxlap

dcนี่คือโปรแกรมที่สมบูรณ์ครั้งแรกของฉันใน

Perl, 40 ไบต์

map{$a=$ARGV[0]**$a}0..$ARGV[1];print$a;

ยอมรับจำนวนเต็มสองจำนวนเป็นอินพุตเข้าสู่ฟังก์ชันและแสดงผลลัพธ์

ที่จริงแล้ว 6 ไบต์

n`ⁿ)`Y

ลองออนไลน์!

อินพุตถูกใช้เป็นb\na(\nเป็นบรรทัดใหม่)

คำอธิบาย:

n`ⁿ)`Y
n       a copies of b
 `ⁿ)`Y  while stack changes between each call (fixed-point combinator):
  ⁿ       pow
   )      move top of stack to bottom (for right-associativity)

CJam , 9 ไบต์

q~)*{\#}*

ลองออนไลน์!

คำอธิบาย

q~          e# Take input (array) and evaluate
  )         e# Pull off last element
   *        e# Array with the first element repeated as many times as the second
    {  }*   e# Reduce array by this function
     \#     e# Swap, power

PHP, 51 ไบต์

for($b=$p=$argv[1];++$i<$argv[2];)$p=$b**$p;echo$p;

GameMaker Language, 52 50 ไบต์

d=a=argument0;for(c=1;c<b;c++)d=power(a,d)return d

Pyth, 6 ไบต์

u^QGE1

ลองออนไลน์

คำอธิบาย

          (implicit: input a to Q)
     1    Start from 1.
u   E     b times,
 ^GQ      raise the previous number to power a.

Minkolang 0.15 , 12 11 ไบต์

nnDI1-[;]N.

ลองที่นี่!

คำอธิบาย

nn             Read two integers from input
  D            Pop top of stack and duplicate next element that many times
   I1-         Push length of stack, minus 1
      [        Pop top of stack and repeat for loop that many times
       ;       Pop b, a and push a^b
        ]      Close for loop
         N.    Output as number and stop.

แร็กเก็ต 51 ไบต์

(define ans 1)(for((i b))(set! ans(expt a ans)))ans

Ungolfed:

(define (f a b)
  (define ans 1)
  (for((i b))
    (set! ans
          (expt a ans)))
  ans)

การทดสอบ:

(f 1 2)
(f 2 2)
(f 5 2)
(f 3 3)

เอาท์พุท:

1
4
3125
7625597484987

สกาลา 45 ไบต์

Seq.fill(_:Int)(_:Double)reduceRight math.pow

Ungolfed:

(a:Int,b:Double)=>Seq.fill(a)(b).reduceRight(math.pow)

สร้างลำดับของas ด้วยbองค์ประกอบและใช้math.powจากขวาไปซ้าย

TI-Basic, 19 ไบต์

Prompt A,B
A
For(C,2,B
A^Ans
End

Java 7, 71 57 ไบต์

double c(int a,int b){return b>0?Math.pow(a,c(a,b-1)):1;}

Ungolfed & รหัสการทดสอบ:

ลองที่นี่

class M{
  static double c(int a, int b){
    return b > 0
            ? Math.pow(a, c(a, b-1))
            :1;
  }

  public static void main(String[] a){
    System.out.println(c(1, 2));
    System.out.println(c(2, 2));
    System.out.println(c(5, 2));
    System.out.println(c(3, 3));
  }
}

เอาท์พุท:

1.0
4.0
3125.0
7.625597484987E12

C, 50 ไบต์

double t(int x,int n){return n?pow(x,t(x,n-1)):1;}

ตรงไปตรงมาจากความหมายของTetration

05AB1E , 4 ไบต์

sF¹m

ลองออนไลน์!

s     # Swap input arguments.
 F    # N times...
  ¹m  # Top of the stack ^ the first argument.

3 ไบต์หากสามารถสลับอาร์กิวเมนต์ได้:

F¹m

Bash ขนาด 50 ไบต์

(ภายในขอบเขตของชนิดข้อมูลจำนวนเต็ม bash)

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

E() { echo $(($(printf "$1**%.0s" `seq 1 $2`)1));}

คำอธิบาย

สร้างนิพจน์ด้วย printf เช่น E 2 5:

  2**2**2**2**2**1

จากนั้นใช้ส่วนขยายเลขคณิตของ bash ในตัวเพื่อคำนวณผลลัพธ์

ทดสอบ

E 1 2
1

E 2 2
4

E 5 2
3125

E 3 3
7625597484987

Powershell, 68 ไบต์

filter p ($a){[math]::Pow($a,$_)};iex (,$args[0]*$args[1]-join"|p ")

นี่เป็นวิธีที่สั้นที่สุดในสามวิธีที่ฉันพยายามไม่ใช่แบบโดยรวมที่ยอดเยี่ยม แต่ฉันแน่ใจว่า 100% มีวิธีที่สั้นกว่า

PS C:\++\golf> (1,2),(2,2),(5,2),(3,3) | % {.\sqsq $_[0] $_[1]}
1
4
3125
7625597484987

Sadly Powershell ไม่มี built-in ^หรือ**โอเปอเรเตอร์หรือจะเป็นคำตอบแบบ 32/33 byte ที่สะอาด

iex (,$args[0]*$args[1]-join"^")

ความจริง 70 ไบต์

l(a,b)==(local i;i:=1;r:=a;repeat(if i>=b then break;r:=a^r;i:=i+1);r)

นี้น้อย golfed

l(a,b)==
  local i
  i:=1;r:=a;repeat(if i>=b then break;r:=a^r;i:=i+1)
  r


(3) ->  [l(1,2),l(2,2),l(5,2),l(3,3),l(4,3)]

     (3)
     [1, 4, 3125, 7625597484987,
      13407807929942597099574024998205846127479365820592393377723561443721764030_
       0735469768018742981669034276900318581864860508537538828119465699464336490_
       06084096
       ]
                                                   Type: List PositiveInteger

สงสัย 21 ไบต์

f\@@[#0?^#1f#1-#0 1?1

ใช้วิธีเรียกซ้ำ การใช้งาน:

f\@@[#0?^#1f#1-#0 1?1];f 2 3

โบนัสโซลูชั่น 22 ไบต์

@@:^ -#0 1(genc ^#1)#1

วิธีการที่แปลกใหม่เล็กน้อย การใช้งาน:

t\@@+>#[^;#1]tk -#0 1rpt#1;t 2 3

อ่านเพิ่มเติมได้:

@@
  iget
    - #0 1
    (genc ^#1) #1

สมมติว่าa^^b:

สร้างรายการที่ไม่มีที่สิ้นสุดของ tetrated a; สำหรับรายการนี้จะมีลักษณะดังนี้a=2 [2 4 16 65536...]จากนั้นจัดทำดัชนีที่b-1เพราะ Wonder มีดัชนีเป็นศูนย์

Clojure 56 ไบต์

(fn[a b](last(take a(iterate #(apply *(repeat % b))b))))

อาจจะมีวิธีที่สั้นกว่าผ่านapply comp?