このcode-golfの目標は、ユーザーがASCII文字列（印刷可能なASCII文字のみを含む）を入力できるコードを作成し、プログラムがこの文字列の小文字のバリアントを出力することです。

重要：文字列（または1文字のみ）を小文字（ToLower().NET、strtolower()PHP など）に変換する組み込み関数を使用することはできません！ただし、他のすべての組み込み関数を使用できます。

別の重要な注意：入力文字列には大文字のみが含まれていません。入力文字列は、大文字、小文字、数字、およびその他のASCII印刷可能文字の混合です。

がんばろう！

シェル-10

を使用した@Gowthamの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()

匿名の編集が指摘したように、あなたはそれをすることができます 27Python 3の26：

input().upper().swapcase()

私はここでルールを暴言しますが、...

重要：文字列（または1文字のみ）を小文字（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文字の文字コードについて。各文字について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 @[`{

Python 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. code-point-spaceでアルゴリズムを実行します。 &.(a.&i.)
3. 各文字の文字範囲を特定します。コードポイント「@」と「Z」の間の文字は大文字と見なされます1=I.。
4. 大文字のコードポイントごとに、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. {}% 内部のコードをstringのすべての文字にマップします。
2. .. スタックの最上部（キャラクター）を2回コピーします。
3. 64> 文字コードが64より大きい場合は1、それ以外の場合は0。
4. \スタック上の2つのアイテムを交換します（レターの2番目のコピーを取得し、2番目の64>位置に結果を保存します）。
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

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 !

パイソン（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;

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? 

すべて正常に動作しますが、|（or）by ^（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))

Q, 18

.....

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

Q (16)

.......

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

PHP (42)

Run from the command line:

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

-R and the single quotes are not counted.

PowerShell: 69 65 64

I've tried a half-dozen ways to get Replace to work the way I want it to without using the long [regex]::Replace syntax, but I haven't had any luck. If anyone else has an idea of what might work, please do suggest it.

Golfed code:

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

Changes from original:

• Rearranged last argument so that [int] is no longer needed, per suggestion in comments.

Explanation:

(read-host) gets the user input.

[regex]::Replace(...) tells PowerShell to use RegEx matching to perform replacement operations on a string.

"[A-Z]" matches all uppercase letters.

{...} tells PowerShell to use a script to determine the replacement value.

[char]"$args" takes the current match and types it as an ASCII character.

32+ converts the character to an integer, representing the ASCII code, and increases the value by 32 - which would match ASCII code of the corresponding lowercase letter.

[char](...) takes the resulting value and converts it back to an ASCII character.

Demo of original:

(Current version tested - screenshot not yet posted.)

k2, 15 bytes

I am super late to this one, but I found this cool anyway.

{_ci 32+_ic x}'

Also:

Pyth, 10 bytes

Doesn't really count because Pyth was created after this was posted. Still cool.

jkmC+32Cdw

05AB1E, 3 bytes

u.š

Port of @user8777 Python 3 answer.

Try it online.

Explanation:

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

But without any case-altering builtins:

05AB1E, 12 11 bytes

ÇIS.u32*+çJ

-1 byte thanks to @Emigna.

Try it online.

Explanation:

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

_{Actually ther was no output form specified, so run it in console Yea, JavaScript really is verbose with charcode <-> string}

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

About 70 for just the method body.

Add 5 chars to include a LF/CR in the output:

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

A LINQ version would be shorter:

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) .. except that it requires using System.Linq; (total: 121).

Haskell - 58

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

Python 3 - 70

Updated for OP's changes.

I'm a Python newbie, so any critique is welcome.

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

Perl, 9 + 1 (for -p flag) = 10

$_="\L$_"

\L was specifically asked about and allowed, because even though it's a built-in, it's not a function.

Powershell, 53 49 bytes

-4 bytes thanks @AdmBorkBork

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

Test script:

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

Output:

True: hello world from powershell

8086 machine code, 14 bytes

Assembled:

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

Unassembled listing:

 ; 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 

Implemented as a MACRO (essentially a function). Input string in SI, length in CX. Output string in DI.

Output from PC DOS test program:

Download and test TOLOW.COM example program.