เอาท์พุทผลลัพธ์ต่อไปนี้ (ซึ่งเป็นผลมาจากการคำนวณ 6 * 9 ในฐานตั้งแต่ 2 ถึง 36) ตรวจสอบให้แน่ใจว่าตัวอักษรเป็นตัวพิมพ์ใหญ่และตัวคูณจะถูกส่งออกในทุกบรรทัด

6 * 9 = 110110
6 * 9 = 2000
6 * 9 = 312
6 * 9 = 204
6 * 9 = 130
6 * 9 = 105
6 * 9 = 66
6 * 9 = 60
6 * 9 = 54
6 * 9 = 4A
6 * 9 = 46
6 * 9 = 42
6 * 9 = 3C
6 * 9 = 39
6 * 9 = 36
6 * 9 = 33
6 * 9 = 30
6 * 9 = 2G
6 * 9 = 2E
6 * 9 = 2C
6 * 9 = 2A
6 * 9 = 28
6 * 9 = 26
6 * 9 = 24
6 * 9 = 22
6 * 9 = 20
6 * 9 = 1Q
6 * 9 = 1P
6 * 9 = 1O
6 * 9 = 1N
6 * 9 = 1M
6 * 9 = 1L
6 * 9 = 1K
6 * 9 = 1J
6 * 9 = 1I

รหัสที่สั้นที่สุดชนะ

05AB1E , 21 20 ไบต์

36G54N>B"6 * 9 = ÿ",

ลองออนไลน์!

GolfScript, 39 ตัวอักษร

35,{2+'6 * 9 = '54@base{.9>7*+48+}%n+}/

ผลสามารถมองเห็นได้ที่นี่

อ็อกเทฟ 49

for i=2:36printf("6 * 9 = %s\n",dec2base(54,i))end

Javascript, 57 55 ไบต์

for(i=2;++i<37;)console.log('6 * 9 = '+54..toString(i))

อาจจะสั้นลงถึง 49 ด้วยalertแต่ฉันไม่ต้องการส่งใครไปที่ ...

ทับทิม (47)

2.upto(36){|t|puts"9 * 6 = "+54.to_s(t).upcase}

ฉันรู้ว่า GolfScript เป็นทางออกที่ดี แต่อย่างน้อยนี่ไม่ใช่ความลับ ...

Python, 89

B=lambda x:x*'.'and B(x/b)+chr(x%b+7*(x%b>9)+48)
b=2
while b<37:print'6 * 9 =',B(54);b+=1

Python 2.7 ( 124 114)

แก้ไข: ตัดขนปุยขอบคุณความคิดเห็น @ boothby ด้านล่าง

ฉันคิดว่า Python ทำงานได้ดีเนื่องจากไม่มีตัวแปลง (ที่ฉันรู้) เพื่อทำการแปลงพื้นฐานดังนั้นจึงต้องทำในโค้ด

for b in range(2,37):print'6 * 9 = '+''.join(chr((54/b**y%b>9)*7+48+54/b**y%b)for y in range(4,-1,-1)).lstrip('0')

Perl 6 , 36 ไบต์

say '6 * 9 = ',54.base($_) for 2..36

Mathematica 40

ไม่ได้อยู่ในการช่วงชิง (ใช้อักษรตัวพิมพ์เล็ก):

Print["6*9 = ",54~BaseForm~#]&/@2~Range~36

จูเลียอายุ 61 ปี

สำหรับ b = 2: 36; @printf ("6 * 9 =% s \ n", ตัวพิมพ์ใหญ่ (ฐาน (b, 54))); end

ค่อนข้างเจ็บปวดนอกจากจะจำได้ว่าใช้แมโคร @ printf กับ printf

ฐานนำเข้า; ไม่ต้องการ ...

Perl

จำเป็นต้องใช้โมดูล Math :: BaseCnv

35 ตัวอักษรที่ไม่มีuseข้อความ:

map{say"6 * 9 = ",cnv(54,$_)}2..36

54 ตัวอักษรที่มีuseคำสั่ง:

use Math::BaseCnv;
map{say"6 * 9 = ",cnv(54,$_)}2..36

ไม่แน่ใจว่าคุณจะให้คะแนนสิ่งนี้อย่างไรดังนั้นจึงรวมอยู่ด้วย

โครงสร้างแผนผัง BLOCK LIST ถูกใช้ รายการคือช่วง 2 ถึง 36 ที่ถูกร้องขอ เนื้อสัตว์อยู่ในcnv($NUMBER, $BASE)ฟังก์ชั่นและแผนที่เป็นวงโดยนัย

เจ - 78 70

'6 * 9 = ',"1>;/(a.#~48 10 7 26 165#0 1 0 1 0){~<&.>(2+i.35)#.inv&.>54

Haskell - 137

let s=['0'..'9']++['A'..'Z'];t _(0,r)=[s!!r];t b(q,r)=(t b$b q)++[s!!r]in mapM_(putStrLn.("6 * 9 = "++).(\b->t b$b 54).flip divMod)[2..36]

CoffeeScript 71

alert ("6 * 9 = "+59.toString(x).toUpperCase()for x in[2..36]).join "\n"

ลิงค์

C ( 166 151)

กำจัดอักขระที่ไม่จำเป็นออกไปและเปลี่ยนการประกาศบางอย่าง สมมติว่าคุณกำลังรันโปรแกรมโดยไม่มีข้อโต้แย้ง

p[7],i,l,v,r;main(b){for(r=2;r<37;r++){b++;printf("6 * 9 = ");v=54;while(v>0)l=v%b,p[i++]=l>9?l+55:l+48,v/=b;while(i^0)printf("%c",p[--i]);puts("");}}

Clojure, 75

(for[i(range 2 37)](println"6 * 9 ="(.toUpperCase(Integer/toString 54 i))))

Python 3, 83 ไบต์

import numpy;print('\n'.join('6 * 9 = '+numpy.base_repr(54,i)for i in range(2,37)))

โผ 75 ไบต์

for(int x=2;x<37;x++)print("6 * 9 = ${54.toRadixString(x).toUpperCase()}");

Dart ค่อนข้างละเอียดเมื่อพูดถึง stdlib แต่เดี๋ยวก่อน ... อย่างน้อยคุณก็สามารถอ่านได้: P

สกาล่า, 71

2 to 36 map(i=>println("6 * 9 = "+Integer.toString(54,i).toUpperCase))

Lisp ทั่วไป: 56 ตัวอักษร

(do((b 2(1+ b)))((> b 36))(format t"6 * 9 = ~vr~%"b 54))

ปราชญ์, 48:

Shame Sage พิมพ์เป็นตัวพิมพ์เล็ก ... ฉันจะเป็นหนึ่งเดียวกับโฮเวิร์ด หรือฉันเดาผิดและผูกติดอยู่กับ David Carraher

for i in[2..36]:print'6 * 9 =',54.str(i).upper()

มา, 54

: f 54 37 2 do ." 6 * 9 = " dup i base ! . cr loop ; f

/// , 133 ไบต์

/R/6 * 9 = //S/
R/R110110S2000S312S204S130S105S66S60S54S4AS46S42S3CS39S36S33S30S2GS2ES2CS2AS28S26S24S22S20S1QS1PS1OS1NS1MS1LS1KS1JS1I

ลองออนไลน์!

SpecBAS - 48 ไบต์

1 FOR i=2 TO 36: ?"6 * 9 = ";BASE$(54,i): NEXT i

SpecBAS จริง ๆ แล้วค่อนข้างแข่งขันสำหรับการเปลี่ยนแปลง :-)

8th , 65 62 62 bytes

นี่เป็นโปรแกรมที่สมบูรณ์ ออกหลังจากการดำเนินการ

( "6 * 9 = " . #54 swap base drop >s s:uc . cr ) 2 36 loop bye 

คำอธิบาย

( 
   "6 * 9 = " .   \ Print the first part of the formula
    #54 swap base \ Enter into the base provided by loop index and                
                  \ convert 54 (which is always expressed in base 10)
    drop          \ Get rid of previous base
    >s s:uc       \ Convert number into an upper case string
    . cr          \ Print result and newline
) 2 36 loop       \ Provide base from 2 to 36
bye               \ Quit