เป้าหมายของ code-golf นี้คือการสร้างรหัสที่อนุญาตให้ผู้ใช้ป้อนสตริง ASCII (มีอักขระ ASCII ที่พิมพ์ได้เท่านั้น) และโปรแกรมของคุณจะแสดงตัวแปรตัวพิมพ์เล็กของสตริงนี้

สำคัญ: คุณไม่ได้รับอนุญาตให้ใช้ฟังก์ชันในตัวที่แปลงสตริง (หรืออักขระเพียงตัวเดียว) เป็นตัวพิมพ์เล็ก (เช่นToLower()ใน. NET, strtolower()ใน PHP, ... )! อย่างไรก็ตามคุณได้รับอนุญาตให้ใช้ฟังก์ชั่นในตัวอื่น ๆ ทั้งหมด

หมายเหตุสำคัญอื่น:สตริงอินพุตไม่มีอักขระตัวพิมพ์ใหญ่เท่านั้น สายป้อนเป็นส่วนผสมของอักขระตัวพิมพ์ใหญ่ตัวอักษรตัวพิมพ์เล็กตัวเลขและอื่น ๆASCII พิมพ์ตัวอักษร

โชคดี!

เชลล์ - 10

@ แปลของการแก้ปัญหา Perl Gowtham /bin/trโดยใช้

tr A-Z a-z

วิ่งตัวอย่าง:

% tr A-Z a-z <<<'Hello WORLD! @'
hello world! @

Python 2.7 - 30 (ด้วยการใช้กฎที่ไม่ดีและไม่เหมาะสม)

raw_input().upper().swapcase()

ในฐานะที่เป็นการแก้ไขแบบไม่ระบุชื่อคุณสามารถทำได้ 2726 ใน Python 3 :

input().upper().swapcase()

ฉันทำผิดกฎอย่างชัดเจนที่นี่ แต่ ...

สำคัญ: คุณไม่ได้รับอนุญาตให้ใช้ฟังก์ชันในตัวที่แปลงสตริง (หรืออักขระเพียงตัวเดียว) เป็นตัวพิมพ์เล็ก (เช่นToLower()ใน. NET, strtolower()ใน PHP, ... )! อย่างไรก็ตามคุณได้รับอนุญาตให้ใช้ฟังก์ชั่นในตัวอื่น ๆ ทั้งหมด

การดำเนินการนี้จะใช้สตริงและแปลงเป็นตัวพิมพ์ใหญ่ จากนั้นในการเรียกใช้เมธอดที่ไม่เกี่ยวข้องมากมันจะสลับตัวพิมพ์เล็กของสตริง - เพื่อให้ตัวอักษรตัวพิมพ์เล็กเป็นตัวอักษรตัวพิมพ์ใหญ่ ... และสลับตัวอักษรตัวพิมพ์ใหญ่เป็นตัวพิมพ์เล็ก

Perl - 11 10 ตัวอักษร

y/A-Z/a-z/

y///เป็นเช่นเดียวกับtr///!

ในการดำเนินการ:

% perl -pe 'y/A-Z/a-z/' <<< 'Hello @ WORLD !'
hello @ world !

Befunge-98 - 26 22 21 19

~:''-d2*/1-!' *+,#@

ขึ้นอยู่กับความจริงที่(c-39)/26มี1ไว้สำหรับรหัสอักขระของอักขระ ASCII ตัวพิมพ์ใหญ่เท่านั้น (สมมติว่าการหารจำนวนเต็ม) สำหรับตัวละครแต่ละตัวพิมพ์ออกcc + (((c-39)/26)==1)*' '

ตัวอย่างเซสชั่น:

% cfunge lower.b98
hello WORLD!
hello world!
This is a TEST!!11 az AZ @[`{
this is a test!!11 az az @[`{

Python 3, 58

print("".join(chr(ord(x)+('@'<x<'[')*32)for x in input()))

Ruby, 18 ตัวอักษร

ไม่มีอะไรน่าสนใจจริงๆ

gets.tr'A-Z','a-z'

(ทำงานใน IRB)

เพื่อความสนุก: รุ่นที่สับสน:

$,=$* *' ';$;=$,.tr'A-Z','a-z';$><<$;

ทำงานแบบนี้:

c:\a\ruby>lowercase.rb Llamas are AMAZING!

เอาท์พุต

llamas are amazing!

J - 30

'@Z'(]+32*1=I.)&.(a.&i.)1!:1]1

J อ่านจากขวาไปซ้ายดังนั้นเมื่อต้องการแยกย่อยนี้:

1. ผู้ใช้ที่พร้อมท์สำหรับอินพุต: 1!:1]1
2. ดำเนินการตามขั้นตอนวิธีในจุดรหัสพื้นที่: &.(a.&i.)
3. ระบุช่วงอักขระสำหรับแต่ละตัวอักษร ตัวละครระหว่าง codepoints ว่า "@" และ "Z" 1=I.จะถือว่าเป็นตัวพิมพ์ใหญ่:
4. สำหรับ codepoint ตัวพิมพ์ใหญ่แต่ละตัวให้เพิ่ม 32: ]+32* ...
5. โปรดทราบว่าขั้นตอนที่ (2) สร้างขั้นตอนโดยนัย (5): เราเริ่มต้นด้วยการฉายจากตัวละครไปยังโดเมนจำนวนเต็มดังนั้นเมื่อเราเสร็จแล้วเราจะจับคู่จำนวนเต็มเหล่านั้นกลับไปยังตัวละคร

เห็นได้ชัดว่าการใช้งานเฉพาะนี้พิจารณาเฉพาะ ASCII เท่านั้น แต่วิธีการนั้นสามารถขยายไปถึงระนาบการพูดได้หลายภาษาขั้นพื้นฐานใน Unicode

C 64 63 59 55 ตัวอักษร

main(c){while(c=getchar(),~c)putchar(c-65u<27?c+32:c);}

Golfscript - 17

โปรแกรม:

{..64>\91<*32*+}%

คำอธิบาย:

1. {}% จับคู่โค้ดภายในกับอักขระทุกตัวในสตริง
2. .. คัดลอกส่วนบนสุดของสแต็ก (อักขระ) สองครั้ง
3. 64> 1 ถ้ารหัสอักขระมากกว่า 64 อีก 0
4. \สลับสองไอเท็มบนสแต็ก (รับสำเนาตัวอักษรตัวที่สองและเก็บผลลัพธ์ของการ64>อยู่ในตำแหน่งที่สอง)
5. 91< ตรวจสอบเพื่อดูว่ารหัสอักขระน้อยกว่า 91 คล้ายกับขั้นตอนที่ 3
6. *คูณผลลัพธ์จากขั้นตอนที่ 3 และ 5 เข้าด้วยกัน เท่ากับ 1 เท่านั้นหากทั้งสองขั้นตอนเป็นจริง
7. 32* ทวีคูณผลลัพธ์ของขั้นตอนที่ 6 ด้วย 32 จะเป็น 32 ถ้าขั้นตอนที่ 6 เป็น 1 และอีก 0
8. + เพิ่มผลลัพธ์ (อย่างใดอย่างหนึ่ง 32 หรือ 0) ลงในรหัสอักขระ

ตัวอย่างผลลัพธ์:

echo HelLO @ WorLD | ruby golfscript.rb upper_to_lower.gs
hello @ world

Perl: 24 ตัวอักษร

s/[A-Z]/chr 32+ord$&/ge

วิ่งตัวอย่าง:

bash-4.1$ perl -pe 's/[A-Z]/chr 32+ord$&/ge' <<< 'Hello @ WORLD !'
hello @ world !

Python (33)

หากมีข้อสงสัยให้ใช้เปลือก

import os;os.system('tr A-Z a-z')

น่าเสียดายที่นี่ยังคงนานกว่าโซลูชันของเลโก้

DELPHI

const
  UpChars:set of AnsiChar = ['A'..'Z'];
var
  I: Integer;
begin
  SetLength(Result, Length(pString));
  for I := 1 to length(pstring) do
    Result[i] := AnsiChar((Integer(pString[i] in UpChars))*(Ord(pString[i])+32));
  WriteLn(Result);
end;

JavaScript - 109 104 (ES6: 95)

ขอบคุณสำหรับบางส่วนสำหรับรุ่นที่ถูกต้อง

a=prompt();for(b=[i=0];c=a.charCodeAt(i);)b[i++]=String.fromCharCode(c|(c>64&c<91)*32);alert(b.join(""))

การทำงานต่อไปนี้หากเบราว์เซอร์รองรับการแสดงออกฟังก์ชัน ES6:

alert(prompt().split("").map(c=>String.fromCharCode(c.charCodeAt()|(c>"@"&c<"[")*32)).join(""))

Perl 18

s/[A-Z]/$&|" "/eg

สิ่งที่ต้องการ:

perl -pe 's/[A-Z]/$&|" "/eg'  <<<'are NOT allowed to: ToLower() in .NET, strtolower() in PHP'
are not allowed to: tolower() in .net, strtolower() in php

และ

perl -pe 's/[A-Z]/$&|" "/eg' <<< "The input string Doesn't cOntaIn...( C0D3-@01F. ;-)"
the input string doesn't contain...( c0d3-@01f. ;-)

สำหรับ@FireFly :

perl -pe 's/[A-Z]/$&|" "/eg' <<< "Doesn't this translate @ to \` and [\]^_ to {|}~DEL? "
doesn't ... @ to ` and [\]^_ to {|}~del? 

ไม่

ทั่วไปเพิ่มเติม: 18 ตัวอักษรต่อไป:

s/[A-Z]/$&|" "/eg

s/[A-Z]/$&^" "/eg

สิ่งนี้จะไม่เปลี่ยนแปลงอะไรเลยในสถานะ:

perl -pe 's/[A-Z]/$&^" "/eg' <<< "Doesn't ... @ to \` and [\]^_ to {|}~DEL? "
doesn't ... @ to ` and [\]^_ to {|}~del? 

ทั้งหมดทำงานได้ดี แต่ข้อได้เปรียบของการเปลี่ยนแปลง|(หรือ) โดย^(xor) คือไวยากรณ์เดียวกันอาจจะใช้สำหรับtoLower, toUpperหรือswapCase:

toupper:

perl -pe 's/[a-z]/$&^" "/eg' <<< "Doesn't ... @ to \` and [\]^_ to {|}~DEL? "
DOESN'T ... @ TO ` AND [\]^_ TO {|}~DEL? 

และ swapCase (18 + 1 = 19 ตัวอักษร) :

perl -pe 's/[a-z]/$&^" "/egi' <<< "Doesn't ... @ to \` and [\]^_ to {|}~DEL? "
dOESN'T ... @ TO ` AND [\]^_ TO {|}~del? 

javascript 80

"X".replace(/[A-Z]/g,function($){return String.fromCharCode($.charCodeAt()+32)})

(76 ถ้าคุณลบ"X")

ด้วยpromptและalert- 92

alert(prompt().replace(/[A-Z]/g,function($){return String.fromCharCode($.charCodeAt()+32)}))

ซอ

ขอบคุณ @FireFly @some @ C5H8NNaO4 และ @minitech

R

71 ตัวอักษร:

chartr(paste(LETTERS,collapse=""),paste(letters,collapse=""),scan(,""))

83 ตัวอักษร:

a=as.integer(charToRaw(scan(,"")))
b=a%in%(65:90)
a[b]=a[b]+32
rawToChar(as.raw(a))

คำถามที่ 18

.....

{x^ssr/[x]..Q`a`A}

Q (16)

.......

{x^(.Q.A!.Q.a)x}

PHP (42)

เรียกใช้จากบรรทัดคำสั่ง:

-R'echo@str_ireplace($a=range(a,z),$a,$argn);'

-R และจะไม่นับเครื่องหมายคำพูดเดี่ยว

PowerShell: 69 65 64

ฉันได้ลองใช้วิธีครึ่งโหลเพื่อให้แทนที่ทำงานในแบบที่ฉันต้องการโดยไม่ต้องใช้เวลานาน [regex]::Replaceไวยากรณ์แต่ฉันไม่ได้โชคดี หากใครมีความคิดว่าอะไรที่ใช้งานได้โปรดแนะนำให้ทำ

รหัส Golfed:

[regex]::Replace((read-host),"[A-Z]",{[char](32+[char]"$args")})

การเปลี่ยนแปลงจากต้นฉบับ:

• จัดเรียงอาร์กิวเมนต์ล่าสุดเพื่อ[int]ไม่จำเป็นต้องใช้อีกต่อไปตามคำแนะนำในความคิดเห็น

คำอธิบาย:

(read-host) รับอินพุตของผู้ใช้

[regex]::Replace(... )บอก PowerShell ให้ใช้การจับคู่ RegEx เพื่อดำเนินการแทนบนสตริง

"[A-Z]" ตรงกับตัวอักษรตัวพิมพ์ใหญ่ทั้งหมด

{... }บอก PowerShell ให้ใช้สคริปต์เพื่อกำหนดค่าการแทนที่

[char]"$args" ใช้การจับคู่ปัจจุบันและพิมพ์เป็นอักขระ ASCII

32+ แปลงอักขระเป็นจำนวนเต็มซึ่งแทนรหัส ASCII และเพิ่มค่าด้วย 32 ซึ่งจะจับคู่รหัส ASCII ของตัวอักษรตัวเล็กที่สอดคล้องกัน

[char](...)รับค่าผลลัพธ์และแปลงกลับเป็นอักขระ ASCII

ตัวอย่างของต้นฉบับ:

(เวอร์ชันปัจจุบันทดสอบแล้ว - ภาพหน้าจอยังไม่โพสต์)

k2, 15 ไบต์

ฉันสุดสายไปคนนี้ แต่ฉันก็พบว่ามันยอดเยี่ยมอยู่ดี

{_ci 32+_ic x}'

นอกจากนี้:

Pyth, 10 ไบต์

ไม่นับเพราะ Pyth ถูกสร้างหลังจากโพสต์สิ่งนี้ ยังคงเย็น

jkmC+32Cdw

05AB1E , 3 ไบต์

u.š

ท่าเรือ@ user8777หลาม 3 คำตอบ

ลองออนไลน์

คำอธิบาย:

u    # Convert the (implicit) input to uppercase
 .š  # Switch the case (upper to lower and vice-versa)
     # (and output the result implicitly)

แต่ไม่มีบิวด์อินที่เปลี่ยนแปลงตัวพิมพ์:

05AB1E , 12 11 ไบต์

ÇIS.u32*+çJ

-1 ขอบคุณไบต์@Emigna

ลองออนไลน์

คำอธิบาย:

Ç            # Get the unicode values of each character of the (implicit) input-String
 IS          # Get the input-string, split to characters again
   .u        # Check for each if it's uppercase or not (1 if truthy; 0 if falsey)
     32*     # Multiply that result by 32 (32 if truhy; 0 if falsey)
        +    # Add it to all the unicode values at the same indices in the list
         ç   # Convert the now modified unicode values back to characters
          J  # And join all characters together to a string again
             # (which is output implicitly as result)

Javascript, 105

prompt().split("").map(function(a){c=a.charCodeAt(0);return String.fromCharCode(c|(c-64?32:0))}).join("")

_{ที่จริงแล้วไม่มีการระบุรูปแบบผลลัพธ์ดังนั้นให้เรียกใช้ในคอนโซล ใช่จาวา JavaScript เป็น verbose ด้วย charcode <-> สตริง}

ทับทิม: 66

def l(s)s.bytes.map{|b|(65..90).include?(b)?b+32:b}.pack('c*');end

C # - 108

class P{static void Main(string[]a){foreach(var c in a[0])System.Console.Write(
(char)(c>64&&c<91?c+32:c));}}

ประมาณ 70 สำหรับวิธีร่างกายเท่านั้น

เพิ่ม 5 chars เพื่อรวม LF / CR ในเอาต์พุต:

class P{static void Main(string[]a){foreach(var c in a[0]+"\n")System.Console.Write(
(char)(c>64&&c<91?c+32:c));}}

รุ่น LINQ จะสั้นกว่า:

class P{static void Main(string[]a){a[0].Any(c=>System.Console.Write(
(char)(c>64&&c<91?32+c:c))is P);}}

(103) .. ยกเว้นจะต้องมีusing System.Linq;(ทั้งหมด: 121)

Haskell - 58

p x|(elem x['A'..'Z'])=[x..]!!32|1<2=x
main=interact$map p

Python 3 - 70

อัปเดตสำหรับการเปลี่ยนแปลงของ OP

ฉันเป็นมือใหม่ใน Python ดังนั้นคำวิจารณ์ใด ๆ ก็ยินดีต้อนรับ

print("".join(chr(ord(c)+32) if 64<ord(c)<91 else c for c in input()))

Perl, 9 + 1 (สำหรับแฟล็ก -p) = 10

$_="\L$_"

\L ถูกถามโดยเฉพาะเกี่ยวกับและได้รับอนุญาตเพราะถึงแม้จะเป็นในตัว แต่ก็ไม่ใช่ฟังก์ชั่น

Powershell, 53 49 ไบต์

-4 ไบต์ขอบคุณ @AdmBorkBork

-join($args|% t*y|%{[char](32*($_-in65..90)+$_)})

สคริปต์ทดสอบ:

$f = {

-join($args|% t*y|%{[char](32*($_-in65..90)+$_)})

}

@(
    ,("Hello WORLD from PowerShell", "hello world from powershell")
) | % {
    $a,$e = $_
    $r = &$f $a
    "$($r-eq$e): $r"
}

เอาท์พุท:

True: hello world from powershell

รหัสเครื่อง 8086, 14 ไบต์

ประกอบ:

AC 3C 41 7C 06 3C 5A 7F 02 0C 20 AA E2 F2

รายการที่ยังไม่ได้ประกอบ:

 ; Lowercase a string
 ; Input: string: SI, length: CX
 ; Output: string: DI
 TOLOW  MACRO   
        LOCAL _LOOP, _STORE
       _LOOP:
 AC         LODSB           ; load byte from [SI] into AL, advance SI 
 3C 41      CMP  AL, 'A'    ; is char less than 'A'? 
 7C 06      JL   _STORE     ; if so, do not convert 
 3C 5A      CMP  AL, 'Z'    ; is char greater than 'Z'? 
 7F 02      JG   _STORE     ; if so, do not convert 
 0C 20      OR   AL, 020H   ; lowercase the char 
       _STORE:
 AA         STOSB           ; store char to [DI], advance DI 
 E2 F2      LOOP _LOOP      ; continue loop through string 

นำมาใช้เป็นMACRO(ฟังก์ชั่นเป็นหลัก) สายป้อนในความยาวในSI สตริงเอาท์พุทCXDI

ผลลัพธ์จากโปรแกรมทดสอบ PC DOS:

ดาวน์โหลดและทดสอบโปรแกรมตัวอย่างTOLOW.COM