Мета цього коду-гольфу - створити код, який дозволяє користувачеві вводити рядок 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 (припустимо, що це ціле ділення). Для кожного символу 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; але підхід міг би бути розширений принаймні до базової багатомовної площини в Unicode.

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> 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 !

Пітон (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(""))

Перл 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? 

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)

Запустити з командного рядка:

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

-R і єдині лапки не враховуються.

PowerShell: 69 65 64

Я спробував півдесятка способів змусити Замінити роботу так, як мені хочеться, не використовуючи довгий [regex]::Replaceсинтаксис, але мені не пощастило. Якщо хтось інший має уявлення про те, що може працювати, будь ласка, запропонуйте це.

Код для гольфу:

[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

-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 дійсно є багатослівним з рядком 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 символів, щоб включити 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).

Хаскелл - 58

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

Пітон 3 - 70

Оновлено для змін в ОП.

Я новачок 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, довжина в CX. Вихідний рядок вDI .

Вихід з тестової програми ПК DOS:

Завантажте та протестуйте приклад програми TOLOW.COM .