Celem tego code-golfa jest stworzenie kodu, który pozwoli użytkownikowi wprowadzić ciąg ASCII (zawierający tylko drukowane znaki ASCII ), a Twój program wyświetli wariant tego łańcucha pisany małymi literami.

Ważne: NIE wolno używać wbudowanej funkcji, która konwertuje ciąg (lub tylko jeden znak) na małe litery (np. ToLower()W .NET, strtolower()w PHP, ...)! Możesz jednak korzystać ze wszystkich innych wbudowanych funkcji.

Kolejna ważna uwaga: łańcuch wejściowy nie zawiera wyłącznie wielkich liter. Łańcuch wejściowy jest kombinacją wielkich i małych liter, cyfr i innych znaków drukowalnych ASCII .

Powodzenia!

Skorupa - 10

Tłumaczenie rozwiązania Perla @ Gowtham za pomocą /bin/tr.

tr A-Z a-z

Przykładowy przebieg:

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

Python 2.7 - 30 (z okropnym i nieszczerym naruszeniem zasad)

raw_input().upper().swapcase()

Jak zauważyła anonimowa edycja, możesz to zrobić w 2726 w Python 3 :

input().upper().swapcase()

Rażąco nadużywam tu zasad, ale ...

Ważne: NIE wolno używać wbudowanej funkcji, która konwertuje ciąg (lub tylko jeden znak) na małe litery (np. ToLower()W .NET, strtolower()w PHP, ...)! Możesz jednak korzystać ze wszystkich innych wbudowanych funkcji.

To bierze struny i zakrywa je wielkimi literami . Następnie w bardzo niepowiązanym wywołaniu metody odwraca wielkość łańcucha - tak, że małe litery stają się dużymi literami ... i zamienia wszelkie duże litery na małe .

Perl - 11 10 znaków.

y/A-Z/a-z/

y///jest taki sam jak tr///!

W akcji:

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

Befunge-98 - 26 22 21 19

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

Opiera się na fakcie, że dotyczy (c-39)/26to 1wyłącznie kodów znaków wielkich znaków ASCII (przy założeniu podziału na liczby całkowite). Dla każdej postaci cwydrukuj c + (((c-39)/26)==1)*' '.

Przykładowa sesja:

% 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 znaków

Nic naprawdę interesującego.

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

(działa w IRB)

Dla zabawy: myląca wersja:

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

Uruchom tak:

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

Wydajność

llamas are amazing!

J - 30

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

J jest czytany od prawej do lewej, więc aby to rozbić:

1. Monituj użytkownika o wprowadzenie: 1!:1]1
2. Wykonaj algorytm w przestrzeni kodu: &.(a.&i.)
3. Określ zakres znaków dla każdej litery; znaki między codepoints „@” i „Z” są uważane za wielkie litery: 1=I..
4. Do każdego wieloznacznego punktu kodowego dodaj 32: ]+32* ...
5. Zauważ, że krok (2) tworzy domyślny krok (5): zaczęliśmy od projekcji z postaci do domeny liczb całkowitych, więc teraz, gdy jesteśmy skończeni, mapujemy te liczby całkowite z powrotem na znaki.

Oczywiście ta konkretna implementacja uwzględnia tylko ASCII; ale podejście to można rozszerzyć przynajmniej na podstawową płaszczyznę wielojęzyczną w Unicode.

C 64 63 59 55 znaków

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

Golfscript - 17

Program:

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

Wyjaśnienie:

1. {}% odwzorowuje kod wewnątrz na każdy znak w ciągu.
2. .. kopiuje dwukrotnie stos (postać) dwa razy.
3. 64> 1, jeśli kod znaku jest większy niż 64, w przeciwnym razie 0.
4. \zamienia dwa elementy ze stosu (pobiera drugą kopię listu i przechowuje wynik z 64>pozycji drugiej).
5. 91< sprawdza, czy kod znaku jest mniejszy niż 91. Podobnie jak w kroku 3.
6. *mnoży wyniki z kroków 3 i 5 razem. Równa się tylko 1, jeśli oba kroki były prawdziwe.
7. 32* mnoży wynik kroku 6 przez 32. Wyniesie 32, jeśli krok 6 miał wartość 1, w przeciwnym razie 0.
8. + dodaj wynik (32 lub 0) do kodu znaku.

Przykładowe dane wyjściowe:

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

Perl: 24 znaki

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

Przykładowy przebieg:

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

Python (33)

W razie wątpliwości użyj powłoki.

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

Niestety, wciąż jest to dłuższe niż rozwiązanie 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)

Dziękuję niektórym za poprawioną wersję.

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

Poniższe działa, jeśli przeglądarka obsługuje wyrażenia funkcji ES6:

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

Perl 18

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

Coś jak:

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

i

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

W przypadku @FireFly :

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

Nie.

Bardziej ogólne: w każdym razie 18 znaków:

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

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

To nie zmieni niczego w stanie:

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

Wszystko w porządku pracy, ale zaletą zmiany |(lub) przez ^(xor) jest to, że ta sama składnia może być używany do toLower, toUpperlub swapCase:

toUpper:

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

i swapCase (18 + 1 = 19 znaków) :

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 jeśli usuniesz "X")

z prompti alert- 92

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

skrzypce

dzięki @FireFly @some @ C5H8NNaO4 i @minitech

R

71 znaków:

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

83 znaki:

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

P, 18

.....

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

Q (16)

.......

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

PHP (42)

Uruchom z wiersza poleceń:

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

-R a pojedyncze cudzysłowy nie są liczone.

PowerShell: 69 65 64

Próbowałem na pół tuzina sposobów, aby Replace działał tak, jak chcę bez długiej [regex]::Replaceskładni, ale nie miałem szczęścia. Jeśli ktokolwiek ma pojęcie o tym, co może zadziałać, proszę o sugestię.

Kod do gry w golfa:

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

Zmiany w stosunku do oryginału:

• Zmieniono układ ostatniego argumentu, aby [int]nie był już potrzebny, zgodnie z sugestią w komentarzach.

Wyjaśnienie:

(read-host) pobiera dane wejściowe od użytkownika.

[regex]::Replace(... )mówi PowerShellowi, aby używał dopasowania RegEx do wykonania operacji zamiany na łańcuchu.

"[A-Z]" dopasowuje wszystkie wielkie litery.

{... }mówi PowerShellowi, aby użył skryptu do ustalenia wartości zastępczej.

[char]"$args" pobiera bieżące dopasowanie i wpisuje je jako znak ASCII.

32+ konwertuje znak na liczbę całkowitą reprezentującą kod ASCII i zwiększa wartość o 32 - co odpowiada kodowi ASCII odpowiedniej małej litery.

[char](... )przyjmuje wynikową wartość i konwertuje ją z powrotem na znak ASCII.

Demo oryginału:

(Aktualna wersja przetestowana - zrzut ekranu jeszcze nie opublikowany.)

k2, 15 bajtów

Jestem bardzo późno do tego, ale uważam, że to fajna tak.

{_ci 32+_ic x}'

Również:

Pyth, 10 bajtów

Tak naprawdę nie ma znaczenia, ponieważ Pyth został utworzony po opublikowaniu tego. Nadal fajne.

jkmC+32Cdw

05AB1E , 3 bajty

u.š

Port odpowiedzi @ user8777 Python 3 .

Wypróbuj online.

Wyjaśnienie:

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

Ale bez wbudowanych poleceń zmieniających wielkość liter:

05AB1E , 12 11 bajtów

ÇIS.u32*+çJ

-1 bajt dzięki @Emigna .

Wypróbuj online.

Wyjaśnienie:

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

_{W rzeczywistości nie określono formy wyjściowej, więc uruchom ją w konsoli. Tak, JavaScript jest naprawdę pełny z charcode <-> ciągiem}

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

Około 70 za samą treść metody.

Dodaj 5 znaków, aby dołączyć LF / CR do wyniku:

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

Wersja LINQ byłaby krótsza:

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) .. tyle że wymaga using System.Linq;(łącznie: 121).

Haskell - 58

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

Python 3-70

Zaktualizowano o zmiany OP.

Jestem nowicjuszem w Pythonie, więc każda krytyka jest mile widziana.

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

Perl, 9 + 1 (dla flagi -p) = 10

$_="\L$_"

\L został specjalnie zapytany i dozwolony, ponieważ chociaż jest wbudowany, nie jest funkcją.

PowerShell, 53 49 bajtów

-4 bajty dzięki @AdmBorkBork

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

Skrypt testowy:

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

Wydajność:

True: hello world from powershell

Kod maszynowy 8086, 14 bajtów

Zmontowane:

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

Niezmontowany wykaz:

 ; 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 

Wdrożony jako MACRO (zasadniczo funkcja). Łańcuch wejściowy w SI, długość w CX. Łańcuch wyjściowy w DI.

Dane wyjściowe z programu testowego DOS na PC:

Pobierz i przetestuj przykładowy program TOLOW.COM .