พิมพ์ตัวอักษรกรีก!


13

เห็นได้ชัดว่าคุณต้องพิมพ์ตัวอักษรกรีก แต่ฉันคิดว่าฉันจะทำให้มันน่าสนใจขึ้นเล็กน้อยดังนั้นจึงมีการบิดเมื่อโปรแกรมของคุณทำงานโดยมีการโต้แย้ง (อะไรก็ตาม) มันควรเอาตัวอักษรกรีกเป็นตัวพิมพ์เล็ก

ข้อมูล

  1. ตัวอักษรกรีก (เมืองหลวง): ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩ
  2. ตัวอักษรกรีก (ตัวพิมพ์เล็ก): αβγδεζηθικλμνξοπρστυφχψω

กฎ / ความต้องการ

  • การส่งแต่ละครั้งจะต้องเป็นโปรแกรมเต็มรูปแบบ
  • ไม่อนุญาตให้สร้างตัวพิมพ์ในภาษากรีก
  • ช่องโหว่มาตรฐานใช้
  • คุณต้องพิมพ์สิ่งที่ปรากฏ

เกณฑ์การให้คะแนน

โปรแกรมได้คะแนนตามไบต์ หากคุณใช้ชุดอักขระที่แตกต่างกับ UTF-8 โปรดระบุ พยายามทำให้ไบต์น้อยที่สุดสำหรับทุกคนนี่คือ !

กรณีทดสอบ

./program
==> ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩ

./program 1
==> αβγδεζηθικλμνξοπρστυφχψω

./program 'lower'
==> αβγδεζηθικλμνξοπρστυφχψω

./program 123897883421
==> αβγδεζηθικλμνξοπρστυφχψω

./program ""
==> αβγδεζηθικλμνξοπρστυφχψω

greek();
==> ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩ

greek("blah");
==> αβγδεζηθικλμνξοπρστυφχψω

greek(123);
==> αβγδεζηθικλμνξοπρστυφχψω

การส่ง

เพื่อให้แน่ใจว่าคำตอบของคุณปรากฏขึ้นโปรดเริ่มคำตอบด้วยหัวข้อโดยใช้เทมเพลต Markdown ต่อไปนี้:

# Language Name, N bytes

ที่Nมีขนาดของส่งของคุณ หากคุณปรับปรุงคะแนนของคุณคุณสามารถเก็บคะแนนเก่าไว้ในบรรทัดแรกโดยการตีพวกเขาผ่าน ตัวอย่างเช่น

# Ruby, <s>104</s> <s>101</s> 96 bytes

หากคุณต้องการรวมหลายตัวเลขไว้ในส่วนหัวของคุณ (เช่นเนื่องจากคะแนนของคุณคือผลรวมของสองไฟล์หรือคุณต้องการแสดงรายการการลงโทษการตั้งค่าสถานะของล่ามแยกต่างหาก) ตรวจสอบให้แน่ใจว่าคะแนนจริงเป็นตัวเลขสุดท้ายในส่วนหัว:

# Perl, 43 + 2 (-p flag) = 45 bytes

นอกจากนี้คุณยังสามารถตั้งชื่อภาษาให้เป็นลิงค์ซึ่งจะปรากฏในตัวอย่างกระดานแต้มนำ:

# [><>](http://esolangs.org/wiki/Fish), 121 bytes

ลีดเดอร์บอร์ด

นี่เป็นตัวอย่างข้อมูลเพื่อสร้างทั้งกระดานผู้นำปกติและภาพรวมของผู้ชนะตามภาษา


5
สตริงว่างจะนับว่ามีอาร์กิวเมนต์หรือไม่มีอาร์กิวเมนต์หรือไม่? โปรดใช้แซนด์บ็อกซ์เพื่อรับข้อเสนอแนะก่อนโพสต์ความท้าทายบนเว็บไซต์หลัก
Mego

2
ที่เกี่ยวข้อง
Erik the Outgolfer

2
อาร์กิวเมนต์จะเป็นหนึ่งอาร์กิวเมนต์เสมอหรือสามารถมีอาร์กิวเมนต์สองรายการขึ้นไปได้หรือไม่
Erik the Outgolfer

1
Kritixi อนุมัติการท้าทาย
user41805

4
ฉันสับสนเล็กน้อยจากกรณีทดสอบทั้งสามครั้งสุดท้ายของคุณ พวกเขาดูเหมือนการเรียกใช้ฟังก์ชั่น แต่กฎจะขอโปรแกรมแบบเต็มโดยเฉพาะ
Dennis

คำตอบ:


7

05AB1E , 16 ไบต์

ใช้การเข้ารหัสCP-1252

24Ý17K913+çJDl¹s

ลองออนไลน์!

คำอธิบาย

24Ý               # push range [0 ... 24]
   17K            # remove 17
      913+        # add 913 to each
          ç       # convert from code point
           J      # join to string
            Dl    # push a lowercase copy
              ¹   # push the input
               s  # swap the top 2 elements of the stack
                  # implicitly display the top of the stack

คุณหมายถึง[0 ... 23]หรือ[0, 24)แทน[0 ... 24]หรือ[0, 24]?
Erik the Outgolfer

1
@EriktheGolfer มีอักขระอีกตัวหนึ่งอยู่ระหว่างช่วงคะแนนรหัสตัวอักษรกรีก
jimmy23013

@ jimmy23013 โอใช่ฉันสับสนจริงๆ ฉันทำงานในภาษาอื่นซึ่งฉันจะไม่บอกที่นี่ ฉันมุ่งมั่นที่จะตอนนี้
Erik the Outgolfer

8

Ruby, 56 ไบต์

โปรแกรมเต็มรูปแบบ ฉันไม่คิดว่าคำตอบฟังก์ชั่น / แลมบ์ดาจะสั้นกว่านี้สำหรับภาษานี้

Dangit, ςซิก นี่คือเหตุผลที่เราไม่สามารถมีสิ่งที่ดี และคุณก็เช่นกัน (อักขระที่ไม่สามารถย้อนกลับได้ซึ่งทำหน้าที่เป็นตัวยึดตำแหน่งสำหรับ "ตัวพิมพ์ใหญ่" ς)

print *($*[0]?([*?α..?ω]-[?ς]):[*?Α..?Ρ,*?Σ..?Ω])

7
ฉันคิดว่านี่พิมพ์ซิกม่าตัวพิมพ์เล็กพิเศษ, ς
Angs

1
ตอนนี้จะพิมพ์ U + 03A2 พิเศษ
LegionMammal978

5

JavaScript (ES6), 89 83 81 ไบต์

(...a)=>String.fromCharCode(...[...Array(24)].map((_,i)=>i*1.06+913+32*a.length))

หากอาร์เรย์ตัวละครที่เป็นที่ยอมรับแล้วสำหรับ82 80 78 ไบต์:

(...a)=>[...Array(24)].map((_,i)=>String.fromCharCode(i*1.06+913+32*a.length))

แก้ไข: บันทึกจำนวนไบต์ด้วย @ETHproductions


การใช้String.fromCharCode(...array)สั้นลงอีกครั้ง:(...a)=>String.fromCharCode(...[...Array(24)].map((_,i)=>i+(i>16)+913+32*!!a.length))
ETHproductions

1
และตั้งแต่String.fromCharCodeชั้นคุณสามารถบันทึกอีกสองไบต์เช่น:(...a)=>String.fromCharCode(...[...Array(24)].map((_,i)=>i*1.06+913+32*!!a.length))
ETHproductions

@ ETHproductions ฉันไม่อยากจะเชื่อว่าฉันลืมที่จะใช้String.fromCharCode(...)แต่ฉันชอบi*1.06เคล็ดลับนั้น! ความเข้าใจที่น่าเศร้านั้นเป็นจำนวนไบต์นานเท่าที่ฉันจะบอกได้
Neil

ฉันจัดการเพื่อให้มันลงไป(...a)=>String.fromCharCode(...[for(_ of Array(i=24))i++*42/41+889+32*!!a.length])(82)
ETHproductions

คุณสามารถลบได้!!เนื่องจากจะมีค่าเป็นศูนย์หรือหนึ่ง args เท่านั้น
ETHproductions

5

Haskell, 114 108 bytes

import System.Environment
q[a,b]=[a..b]
f[]=q"ΑΡ"++q"ΣΩ"
f _=q"αρ"++q"σω"
main=f<$>getArgs>>=putStr

ขอบคุณ @xnor สำหรับการบันทึก 6 ไบต์

นี่อาจชนะในหมวดของการนำเข้าที่ยาวที่สุดหากไม่มีอะไรอื่น ...


ดูเหมือนว่ามันคุ้มค่าที่q[a,b]=[a..b]จะใช้ 4 ครั้ง
xnor

1
getArgs>>=putStr.fสั้นกว่า
Ørjan Johansen

4

CJam , 16 ไบต์

25,H-ea'α'Α?f+

ลองออนไลน์!

25,H-         e# 0 to 24 excluding 17.
ea'α'Α?       e# If the argument list is truthy (non-empty), alpha, otherwise Alpha.
f+            e# Return characters with each number added to the character code.

คุณช่วยเพิ่มคำอธิบายได้มั้ย
XiKuuKy

@XiKuuKy ฉันไม่คิดอย่างนั้น: /
RGS

1
@RGS แก้ไขแล้ว : /
jimmy23013

@ jimmy23013 เป็นคนดี: -PI เพียงเลื่อนดูคำตอบนี้และคิดว่าฉันจะแสดงความคิดเห็นว่าสำหรับลูกหลาน ไม่คิดว่าคุณจะมาแก้ไขคำตอบของคุณ! +1
RGS


2

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

 "$ù"E"ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩ"@ƒ.X

ลองออนไลน์!

เนื่องจากตัวอักษรกรีกตัวพิมพ์ใหญ่บางตัวไม่มีอยู่ใน CP437 โซลูชันนี้จึงเข้ารหัสใน UTF-8 และให้คะแนนตามลำดับ นี่คือ hexdump (ย้อนกลับได้ด้วยxxd -r):

00000000: 2022 24c3 b922 4522 ce91 ce92 ce93 ce94   "$.."E"........
00000010: ce95 ce96 ce97 ce98 ce99 ce9a ce9b ce9c  ................
00000020: ce9d ce9e ce9f cea0 cea1 cea3 cea4 cea5  ................
00000030: cea6 cea7 cea8 cea9 2240 c692 2e58 0a    ........"@...X.

คำอธิบาย:

 "$ù"E"ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩ"@ƒ.X
<space>                               push the number of items present on the stack
 `$ù`E                                select `ù` (lowercase) if the number of items is not 0, else `$` (stringify - does nothing to a string)
      "ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩ"      push the uppercase Greek alphabet
                                @ƒ    call the selected function
                                  .   print
                                   X  discard

2

Python 3, 80 77 76 ไบต์

import sys;a='ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩ';print([a,a.lower()][-len(sys.argv)])

เวอร์ชั่นเก่า:

import sys;a='ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩ';print([a,a.lower()][len(sys.argv)-1])

รุ่นเก่ากว่า:

import sys;a='ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩ';print(a.lower()if len(sys.argv)>1else a)

[a,a.lower()][len(sys.argv)-1]เพราะความคิดเห็นระบุว่าจะมีเพียงหนึ่งอาร์กิวเมนต์เท่านั้น
หมึกมูลค่า

[a.lower(),a][-len(sys.argv)]คุณสามารถโกนหนึ่งไบต์มากขึ้นด้วย
toriningen

2
คุณใช้การเข้ารหัสแบบใดคือขนาด 76 ไบต์
AdmBorkBork


2

R, 104 99 92 ไบต์

g=function(x)for(i in sprintf("'\\u%04X'",913:937+32*!missing(x))[-18])cat(eval(parse(t=i)))

ตีกอล์ฟลงในรุ่นที่สองที่ฉันเคยมีมา ทำงานในลักษณะเดียวกับรุ่นก่อนหน้า

ขอบคุณ @JDL สำหรับการตัดทิ้ง 7 ไบต์!

รุ่นเก่าที่ 104 ไบต์:

ฉันมีวิธีแก้ไขปัญหาสองวิธีที่แตกต่างกันโดยมีจำนวนไบต์เดียวกัน:

f=function(x){a="ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩ";cat(if(missing(x))a else tolower(a))}

หรือ:

g=function(x)for(i in sprintf("'\\u%04X'",if(missing(x))913:937 else 945:969)[-18])cat(eval(parse(t=i)))

คำอธิบาย:

#First one is trivial
f=function(x){
     a="ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩ" #String to print
     #If argument missing, print uppercase else lowercase 
     cat(if(missing(x))a else tolower(a)) 
     }
#Second one more interesting:
g=function(x)
     #Create escaped unicode strings (i. e. "'\\u03B1'" etc.), loop over them...
     for(i in sprintf("'\\u%04X'",if(missing(x))913:937 else 945:969)[-18])
          #...eval the strings
          cat(eval(parse(t=i))) 

การใช้งาน:

> f()
ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩ
> g()
ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩ
> f(1)
αβγδεζηθικλμνξοπρστυφχψω
> g(1)
αβγδεζηθικλμνξοπρστυφχψω
> f("a")
αβγδεζηθικλμνξοπρστυφχψω
> g("a")
αβγδεζηθικλμνξοπρστυφχψω

ด้วยเหตุผลบางอย่างมันไม่ทำงานบน R-Fiddle (มันเปลี่ยน"เป็น'ค่าเริ่มต้นซึ่งทำให้รหัสเกิดข้อผิดพลาด) แต่คุณสามารถลองใช้กับIdeoneได้


แทนที่+'if'(missing(x),0,32)ด้วย+32*!missing(x)?
JDL

@JDL ขอบคุณ! ไม่รู้ทำไมฉันไม่คิดอย่างนั้น
plannapus

2

Japt , 21 19 ไบต์

;Ck"rz" c+816+32*NÊ

ทดสอบ (ไม่มีอินพุต)
ทดสอบ (อินพุตสตริงว่าง)


คำอธิบาย

      :Implicit input.
;C    :The lowercase alphabet.
k"rz" :Remove r & z.
c+    :Map over the charcodes of the string and add...
816+  :    816 plus...
32*NÊ :    32 multiplied by the length of the array of input variables; 0 if no input is supplied, 1 if a single input is supplied.
      :Implicit output of resulting string

1

สกาลา, 82 ไบต์

print((('Α'to'Ρ')++('Σ'to'Ω')).mkString.map(& =>if(args.size<1)&else&toLower))

Ungolfed:

print((('Α'to'Ρ')++('Σ'to'Ω')).mkString.map(s=>if(args.size==0)s else s.toLower))

น่าเศร้าที่(('Α'to'Ρ')++('Σ'to'Ω'))เป็นVector[Char]ซึ่งจะพิมพ์เป็นVector('Α', 'Β', ...ดังนั้นจึงจะต้องมีการแปลงเป็นสตริงที่มีmkStringอาร์กิวเมนต์ได้โดยเริ่มต้นmapที่เรียกว่า&จะบันทึกช่องว่างระหว่าง&else, และelse&& toLower


1

เยลลี่ 21 ไบต์

,⁸Ea32µ24R%18T+912+µỌ

โปรแกรมเต็มรูปแบบ

TryItOnline! - หมายเหตุเมื่อเรียกใช้ด้วยอาร์กิวเมนต์ต้องรีเฟรชเพื่อเรียกใช้โดยไม่มีอาร์กิวเมนต์

อย่างไร?

,⁸Ea32µ24R%18T+912+µỌ - Main link
,⁸                    - pair (,) with left argument (defaults: left=0, ⁸=[])
                            no argument: [0,[]]
                               argument: [argument,argument]
  E                   - all items equal? -> no argument: 0; argument: 1
   a32                - and 32           -> no argument: 0; argument: 32
      µ               - monadic chain separation
       24R            - range(25)        -> [  1,  2,  3,..., 17, 18, 19,..., 25]
          %18         - mod 18           -> [  1,  1,  1,...,  1,  0,  1,...,  1]
             T        - truthy indices   -> [  1,  2,  3,..., 17,     19,..., 25]
              +912    - add 912          -> [913,914,915,...,929,    931,...,937]
                  +   - add the 0 or 32 (lowercase letters are 32 code points higher)
                   µ  - monadic chain separation
                    Ọ - cast to ordinals

1

PowerShell v2 +, 68 ไบต์

(($a=-join([char[]](913..929+931..937))).toLower(),$a)[!$args.count]

ASCII-only เท่านั้น แต่เอาต์พุตใน UTF-16 โครงสร้างchar-array ของตัวละครที่เหมาะสม-joins มันเข้าด้วยกันเป็นสตริง, $aร้านค้าลงใน จากนั้นใช้!$args.countเป็นดัชนีลงใน tuple เพื่อแสดงผล$aหากไม่มีข้อโต้แย้งหรือ$a.ToLower()ถ้ามีอย่างน้อยหนึ่งอาร์กิวเมนต์

PS C:\Tools\Scripts\golfing> .\print-the-greek-alphabet.ps1
ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩ

PS C:\Tools\Scripts\golfing> .\print-the-greek-alphabet.ps1 ''
αβγδεζηθικλμνξοπρστυφχψω


1

C #, 174 ไบต์

การใช้งานขี้เกียจอาจจะเล่นกอล์ฟได้มาก

class P{static void main(string[] a){System.Console.Write(a.Length>0?"αβγδεζηθικλμνξοπρστυφχψω":"ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩ");}}


1

PHP, 84 ไบต์

เวอร์ชั่นออนไลน์

<?=($argc<2?trim:mb_strtolower)("ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩ");

PHP, 87 ไบต์

$s="ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩ";echo$argc>1?mb_strtolower($s):$s;

gotcha ดูเหมือนว่าคุณจะหายไป $argc>1สั้นกว่า 8 ไบต์isset($argv[1])และไม่ต้องการช่องว่าง
Titus


1

APL (Dyalog Extended)ขนาด 26 ไบต์

วิธีปกติในการส่งอาร์กิวเมนต์จำนวนมากไปยังโปรแกรม APL คือผ่านรายการต่างๆ ดังนั้นโปรแกรมนี้จะขอให้รายการดังกล่าวซึ่งอาจมีข้อโต้แย้ง 0 หรือ 1

'ς΢'~⍨⍳'Ω'×~≢⎕

ลองออนไลน์!

 พรอมต์สำหรับรายการอาร์กิวเมนต์

 นับจำนวนอาร์กิวเมนต์ (0 หรือ 1)

~ ปฏิเสธว่า (1 หรือ 0)

'Ω'× "ทวีคูณ" โอเมก้าโดยที่ (1 เก็บตัวพิมพ์ใหญ่, 0 เท่าถึงตัวพิมพ์เล็ก)

 อักขระทั้งหมดจากΑ- Ωหรือα- ωตามลำดับ

'ς΢'~⍨ ลบตัวพิมพ์เล็กและ sigmas ขั้นสุดท้าย "ตัวพิมพ์ใหญ่"


1

Braingolf 24 ไบต์

l?#α:#Α|# 9->[.!@ 1+];

ลองออนไลน์!

คำอธิบาย:

l?#α:#Α|# 9->[.!@ 1+];  Implicit input of args to stack
l                       Push length of stack
 ?                      If last item (length) is != 0..
  #α                    ..Push lowercase alpha
    :                   else
     #Α                 ..Push uppercase alpha
       |                endif
        #<space>        Push 32 (ordinal of a space)
          9-            Subtract 9 (23)
            >           Move last item to start of stack
             [......]   Do-While loop, will run 24 times
              .         Duplicate last item
               !@       Print without popping
                  1     Push 1
                   +    Pop last 2 items (1 and duplicate) and push sum
                     ;  Suppress implicit output


1

Python 3, 78 ไบต์

import sys;a=(len(sys.argv)-1)<<5;print(''.join(map(chr,range(a+913,a+938))))

คำอธิบาย

aคืออ็อฟเซ็ต, 32 เมื่ออาร์กิวเมนต์ถูกกำหนดให้ใช้ช่วงตัวพิมพ์เล็ก 913 ถึง 937 คือช่วงของค่ายูนิโค้ดสำหรับตัวอักษรกรีกตัวพิมพ์ใหญ่



0

Python 2, 108 ไบต์

#coding=iso-8859-7
import sys;print'αβγδεζηθικλμνξοπρστυφχψω'if~-len(sys.argv)else'ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩ'

ชะมัดชะมัดบางที: (

A.lower()และไม่ฉันไม่สามารถใช้

ขอบคุณ 13285 (alexwlchan) สำหรับ -11 ไบต์


นี่เป็นรุ่นที่ตีกอล์ฟได้มากที่สุดที่ฉันสามารถทำได้
Erik the Outgolfer

คุณสามารถบันทึก 8 ไบต์โดยการกระโดดข้ามมอบหมายให้และเพียงแค่ใช้สตริงเหล่านั้นได้โดยตรงในA,a print
alexwlchan

@alexwlchan ใช่ฉันแค่ไม่คิดว่าจะ ... ยังคงกอล์ฟชะมัด
Erik the Outgolfer

0

Mathematica, 91 ไบต์

Print@{#&,ToLowerCase}[[Length@$ScriptCommandLine]][""<>"Α"~CharacterRange~"Ω"~Drop~{18}]

ต้นฉบับ เพิ่งใช้ช่วงตัวละครจากΑถึงΩลบ U + 03A2 / ςทั้งแปลงเป็นตัวพิมพ์เล็กหรือไม่และพิมพ์



0

JavaScript, 95 ไบต์

95 ไบต์ แต่มีเพียง 71 ตัวอักษร เคาน์เตอร์ไบต์ ใช้วิธี @Neil เพื่อตรวจสอบว่าข้อโต้แย้งจะถูกส่งผ่าน

(...a)=>'ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩ'[`to${a.length?'Low':'Upp'}erCase`]()

0

Java 7, 176 ไบต์

class M{public static void main(String[]a){System.out.print(a.length>0?"αβγδεζηθικλμνξοπρστυφχψω":"ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩ");}}

Java 8, 173 ไบต์

interface M{static void main(String[]a){System.out.print(a.length>0?"αβγδεζηθικλμνξοπρστυφχψω":"ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩ");}}

0

PHP, 79 ไบต์

for($i=944-32*!--$argc;$i++-9&31;$i+=$i%32==1)echo html_entity_decode("&#$i;");

สร้างเอนทิตี html unicode และถอดรหัสพวกมัน -rทำงานด้วย


0

Pip , 21 20 ไบต์

C:913+32*#g+Y,24RM17

วันนี้เป็นวันที่น่าจดจำ Pip ได้ผูก Jelly ที่พ่ายแพ้! 1

1และแพ้สนามกอล์ฟอีกสองแห่ง

ลองออนไลน์!

คำอธิบาย

             ,25      Numbers 0 through 24
                RM17  Remove 17 (ς)
            Y         Yank (to get correct order of operations)
  913                 Char code of capital alpha
      32*#g           32 times number of cmdline args (must be 0 or 1)
     +     +          Add everything up
C:                    Convert to characters (using the compute-and-assign metaoperator to
                        lower the precedence of C)
โดยการใช้ไซต์ของเรา หมายความว่าคุณได้อ่านและทำความเข้าใจนโยบายคุกกี้และนโยบายความเป็นส่วนตัวของเราแล้ว
Licensed under cc by-sa 3.0 with attribution required.