Mục tiêu của môn đánh gôn này là tạo ra một mã cho phép người dùng nhập chuỗi ASCII (chỉ chứa các ký tự ASCII có thể in ) và chương trình của bạn xuất ra biến thể chữ thường của chuỗi này.

Quan trọng: bạn KHÔNG được phép sử dụng hàm dựng sẵn có thể chuyển đổi chuỗi (hoặc chỉ một ký tự) thành chữ thường (chẳng hạn như ToLower()trong .NET, strtolower()trong PHP, ...)! Tuy nhiên, bạn được phép sử dụng tất cả các chức năng tích hợp khác.

Một lưu ý quan trọng: Chuỗi đầu vào không chứa chỉ ký tự chữ hoa. Chuỗi đầu vào là sự pha trộn của các ký tự chữ hoa, ký tự chữ thường, số và các ký tự có thể in ASCII khác .

Chúc may mắn!

Vỏ - 10

Dịch giải pháp Perl của @ Gowtham bằng cách sử dụng /bin/tr.

tr A-Z a-z

Chạy mẫu:

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

Python 2.7 - 30 (với lạm dụng quy tắc khủng khiếp và không phù hợp)

raw_input().upper().swapcase()

Như một chỉnh sửa ẩn danh đã chỉ ra, bạn có thể thực hiện nó trong 2726 trong Python 3 :

input().upper().swapcase()

Tôi thực sự lạm dụng các quy tắc ở đây, nhưng ...

Quan trọng: bạn KHÔNG được phép sử dụng hàm dựng sẵn có thể chuyển đổi chuỗi (hoặc chỉ một ký tự) thành chữ thường (chẳng hạn như ToLower()trong .NET, strtolower()trong PHP, ...)! Tuy nhiên, bạn được phép sử dụng tất cả các chức năng tích hợp khác.

Điều này có các chuỗi và bao gồm nó cho chữ hoa . Sau đó, trong một cuộc gọi phương thức rất không liên quan, nó đảo ngược trường hợp của chuỗi - để bất kỳ chữ in thường nào cũng trở thành chữ in hoa ... và hoán đổi bất kỳ chữ in hoa nào thành chữ in thường .

Perl - 11 10 ký tự.

y/A-Z/a-z/

y///cũng giống như tr///!

Trong hành động:

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

Befunge-98 - 26 22 21 19

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

Dựa trên thực tế là (c-39)/26là 1chỉ dành cho mã ký tự của các ký tự ASCII in hoa (giả sử phân chia số nguyên). Đối với mỗi nhân vật c, in ra c + (((c-39)/26)==1)*' '.

Phiên mẫu:

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

Trăn 3, 58

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

Ruby, 18 ký tự

Không có gì thực sự thú vị.

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

(chạy trong IRB)

Chỉ để cho vui: một phiên bản khó hiểu:

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

Chạy như thế này:

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

Đầu ra

llamas are amazing!

J - 30

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

J được đọc từ phải sang trái, vì vậy để phá vỡ điều này:

1. Nhắc người dùng cho đầu vào: 1!:1]1
2. Thực hiện thuật toán trong không gian mã điểm: &.(a.&i.)
3. Xác định phạm vi ký tự cho mỗi chữ cái; các ký tự giữa các điểm mã "@" và "Z" được coi là chữ hoa:1=I. .
4. Đối với mỗi mật mã viết hoa, thêm 32: ]+32* ...
5. Lưu ý rằng bước (2) tạo ra một bước ngầm định (5): chúng tôi đã bắt đầu bằng cách chiếu từ ký tự sang miền số nguyên, vì vậy bây giờ chúng tôi đã hoàn thành, chúng tôi ánh xạ các số nguyên đó trở lại các ký tự.

Rõ ràng việc triển khai cụ thể này chỉ xem xét ASCII; nhưng cách tiếp cận có thể được mở rộng đến ít nhất là mặt phẳng đa ngôn ngữ cơ bản trong Unicode.

C 64 63 59 55 ký tự

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

Golfscript - 17

Chương trình:

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

Giải trình:

1. {}% ánh xạ mã bên trong đến mỗi ký tự trong chuỗi.
2. .. sao chép đỉnh của ngăn xếp (ký tự) hai lần.
3. 64> 1 nếu mã ký tự lớn hơn 64, khác 0.
4. \hoán đổi hai mục trên ngăn xếp (lấy bản sao thứ hai của chữ cái và lưu kết quả của 64>vị trí hai).
5. 91< kiểm tra xem mã ký tự có nhỏ hơn 91. Tương tự như bước 3.
6. *nhân kết quả từ bước 3 và 5 với nhau. Chỉ bằng 1, nếu cả hai bước đều đúng.
7. 32* nhân kết quả của bước 6 với 32. Sẽ là 32 nếu bước 6 là 1, khác 0.
8. + thêm kết quả (32 hoặc 0) vào mã ký tự.

Ví dụ đầu ra:

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

Perl: 24 ký tự

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

Chạy mẫu:

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

Con trăn (33)

Nếu nghi ngờ, hãy sử dụng vỏ.

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

Đáng tiếc, điều này vẫn còn dài hơn giải pháp của Lego.

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)

Cảm ơn một số cho phiên bản sửa chữa.

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

Các hoạt động sau đây nếu trình duyệt hỗ trợ các biểu thức chức năng ES6:

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

Perl 18

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

Cái gì đó như:

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

và

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

Dành cho @FireFly :

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

Không.

Chung hơn: 18 ký tự nào:

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

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

Điều này sẽ không thay đổi bất cứ điều gì trong trạng thái:

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

Tất cả đều hoạt động tốt, nhưng lợi thế của việc thay đổi |(hoặc) bởi ^(xor) là cùng một cú pháp có thể được sử dụng cho toLower, toUpperhoặcswapCase :

topper

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

và exchangeCase (18 + 1 = 19 ký tự) :

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 nếu bạn xóa "X")

với promptvà alert- 92

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

vĩ cầm

cảm ơn @FireFly @some @ C5H8NNaO4 và @minitech

R

71 ký tự:

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

83 ký tự:

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

Q, 18

.....

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

Q (16)

.......

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

PHP (42)

Chạy từ dòng lệnh:

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

-R và các trích dẫn duy nhất không được tính.

PowerShell: 69 65 64

Tôi đã thử một nửa tá cách để Thay thế hoạt động theo cách tôi muốn mà không cần sử dụng lâu [regex]::Replace cú pháp , nhưng tôi không gặp may. Nếu bất cứ ai khác có ý tưởng về những gì có thể làm việc, xin vui lòng đề xuất nó.

Mã đánh gôn:

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

Thay đổi từ bản gốc:

• Sắp xếp lại đối số cuối cùng để [int]không còn cần thiết, theo đề xuất trong các bình luận.

Giải trình:

(read-host) được đầu vào của người dùng.

[regex]::Replace(... )Nói với PowerShell sử dụng kết hợp RegEx để thực hiện các hoạt động thay thế trên chuỗi.

"[A-Z]" phù hợp với tất cả các chữ cái viết hoa.

{... }Nói với PowerShell sử dụng tập lệnh để xác định giá trị thay thế.

[char]"$args" lấy kết quả khớp hiện tại và nhập nó làm ký tự ASCII.

32+ chuyển đổi ký tự thành một số nguyên, biểu thị mã ASCII và tăng giá trị lên 32 - sẽ khớp với mã ASCII của chữ cái viết thường tương ứng.

[char](... )Lấy giá trị kết quả và chuyển đổi lại thành ký tự ASCII.

Bản demo của bản gốc:

(Phiên bản hiện tại đã được thử nghiệm - ảnh chụp màn hình chưa được đăng.)

k2, 15 byte

Tôi siêu muộn với cái này, nhưng dù sao thì tôi cũng thấy nó rất tuyệt.

{_ci 32+_ic x}'

Cũng thế:

Bình thường, 10 byte

Không thực sự được tính vì Pyth đã được tạo sau khi nó được đăng. Vẫn ngầu.

jkmC+32Cdw

05AB1E , 3 byte

u.š

Cổng của @ user8777 Python 3 trả lời .

Hãy thử trực tuyến.

Giải trình:

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

Nhưng không có bất kỳ nội dung thay đổi trường hợp nào:

05AB1E , 12 11 byte

ÇIS.u32*+çJ

-1 byte nhờ @Emigna .

Hãy thử trực tuyến.

Giải trình:

Ç            # 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("")

_{Trên thực tế không có hình thức đầu ra nào được chỉ định, vì vậy hãy chạy nó trong bảng điều khiển Yea, JavaScript thực sự dài dòng với chuỗi charcode <->}

Hồng ngọc: 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));}}

Khoảng 70 cho cơ thể phương pháp.

Thêm 5 ký tự để bao gồm một LF / CR trong đầu ra:

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));}}

Phiên bản LINQ sẽ ngắn hơn:

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) .. ngoại trừ việc nó yêu cầu using System.Linq;(tổng cộng: 121).

Haskell - 58

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

Trăn 3 - 70

Cập nhật cho những thay đổi của OP.

Tôi là người mới sử dụng Python, vì vậy mọi phê bình đều được chào đón.

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

Perl, 9 + 1 (cho cờ -p) = 10

$_="\L$_"

\L được hỏi cụ thể và cho phép, bởi vì mặc dù nó được tích hợp sẵn nhưng nó không phải là một chức năng.

Powershell, 53 49 byte

-4 byte cảm ơn @AdmBorkBork

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

Kịch bản thử nghiệm:

$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"
}

Đầu ra:

True: hello world from powershell

Mã máy 8086, 14 byte

Lắp ráp:

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

Danh sách chưa được phân loại:

 ; 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 

Thực hiện như một MACRO(về cơ bản là một chức năng). Chuỗi đầu vào trong SI, độ dài trongCX . Chuỗi đầu ra trongDI .

Đầu ra từ chương trình thử nghiệm PC DOS:

Tải về và kiểm tra chương trình ví dụ TOLOW.COM .