이 코드 골프의 목표는 사용자가 ASCII 문자열 ( 인쇄 가능한 ASCII 문자 만 포함)을 입력 할 수있는 코드를 작성하고 프로그램은이 문자열의 소문자 변형을 출력하는 것입니다.

중요 : 문자열 (또는 한 문자)을 소문자 (예 : ToLower().NET, strtolower()PHP 등)로 변환하는 내장 함수를 사용할 수 없습니다 ! 그러나 다른 모든 내장 기능을 사용할 수 있습니다.

또 다른 중요한 참고 사항 : 입력 문자열에는 대문자 만 포함되지 않습니다 . 입력 문자열은 대문자, 소문자, 숫자 및 기타 ASCII 인쇄 가능 문자 의 혼합입니다 .

행운을 빕니다!

쉘-10

를 사용한 @ Gowtham 's Perl 솔루션의 번역 /bin/tr.

tr A-Z a-z

샘플 실행 :

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

Python 2.7-30 (끔찍하고 비사 과적 규칙 남용)

raw_input().upper().swapcase()

익명 편집이 지적했듯이 27파이썬 3에서 26 :

input().upper().swapcase()

나는 여기에서 규칙을 명백히 악용하고 있지만 ...

중요 : 문자열 (또는 한 문자)을 소문자 (예 : ToLower().NET, strtolower()PHP 등)로 변환하는 내장 함수를 사용할 수 없습니다 ! 그러나 다른 모든 내장 기능을 사용할 수 있습니다.

이것은 문자열을 취해 대문자로 감싼다 . 그리고 매우 관련이없는 메소드 호출, 그것은 문자열의 경우를 반전 - 모든 소문자가 대문자 ... 그리고 될 그래서 대문자를 낮추기 위해 스왑 모든 대문자를 .

펄 - 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 문자 (정수 나누기를 가정)의 문자 코드에 대한. 각 문자마다 c인쇄하십시오 c + (((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 @[`{

파이썬 3, 58

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

루비, 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. 각 문자의 문자 범위를 식별하십시오. 코드 포인트 "@"와 "Z"사이의 문자는 대문자로 간주됩니다 1=I..
4. 각 대문자 코드 포인트에 32를 추가하십시오. ]+32* ...
5. 단계 (2)는 암시 적 단계 (5)를 만듭니다. 우리는 문자에서 정수 도메인으로 투영하여 시작했습니다. 이제 끝났으므로 정수를 문자에 다시 매핑합니다.

분명히이 특정 구현은 ASCII 만 고려합니다. 그러나 접근 방식은 유니 코드로 최소한 기본 다국어 평면으로 확장 될 수 있습니다.

C 64 63 59 55 자

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

골프 스크립트-17

프로그램:

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

설명:

1. {}% 내부의 코드를 문자열의 모든 문자에 매핑합니다.
2. .. 스택의 상단 (문자)을 두 번 복사합니다.
3. 64> 문자 코드가 64보다 크면 1, 그렇지 않으면 0
4. \스택에서 두 항목을 교체합니다 (문자의 두 번째 사본을 가져오고 결과를 64>위치 2에 저장함 ).
5. 91< 문자 코드가 91 미만인지 확인합니다. 3 단계와 유사합니다.
6. *3 단계와 5 단계의 결과를 함께 곱합니다. 두 단계가 모두 참이면 1과 같습니다.
7. 32* 6 단계의 결과에 32를 곱합니다. 6 단계가 1이면 32, 그렇지 않으면 0입니다.
8. + 문자 코드에 결과 (32 또는 0)를 추가하십시오.

출력 예 :

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

펄 : 24 자

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

샘플 실행 :

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

파이썬 (33)

확실하지 않은 경우 쉘을 사용하십시오.

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

유감스럽게도 이것은 여전히 ​​레고의 솔루션보다 더 깁니다.

델피

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;

자바 스크립트 - 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(""))

펄 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:

상단 :

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? 

자바 스크립트 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 덕분에

아르 자형

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구문 을 사용하지 않고 Replace가 원하는 방식으로 작동하도록 6 가지 방법을 시도했지만 운이 없었습니다. 다른 사람이 작동 할 수있는 아이디어가 있다면 제안하십시오.

골프 코드 :

[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 포트 Python 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

@Emigna 덕분에 -1 바이트 .

온라인으로 사용해보십시오.

설명:

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

자바 스크립트, 105

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

_{실제로는 지정된 출력 형식이 없으므로 콘솔에서 실행하십시오. 예, JavaScript는 실제로 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입니다.

출력에 LF / CR을 포함하려면 5자를 추가하십시오.

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).

하스켈-58

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

파이썬 3-70

OP의 변경 사항이 업데이트되었습니다.

나는 파이썬 초보자이기 때문에 어떤 비판도 환영합니다.

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

Perl, 9 + 1 (-p 플래그의 경우) = 10

$_="\L$_"

\L 내장되어 있지만 기능이 아니기 때문에 특별히 묻고 허용했습니다.

파워 쉘, 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의 길이 CX. 출력 문자열 DI.

PC DOS 테스트 프로그램에서 출력 :

TOLOW.COM 예제 프로그램을 다운로드하여 테스트 하십시오 .