Целью этого кода является создание кода, который позволяет пользователю вводить строку ASCII (содержит только печатаемые символы ASCII ), а ваша программа выводит вариант этой строки в нижнем регистре.

Важно: вам НЕ разрешено использовать встроенную функцию, которая преобразует строку (или только один символ) в нижний регистр (например, ToLower()в .NET, strtolower()в PHP, ...)! Однако вы можете использовать все остальные встроенные функции.

Еще одно важное замечание: строка ввода не содержит только заглавные буквы. Входная строка представляет собой сочетание символов верхнего регистра, символов нижнего регистра, цифр и других печатных символов ASCII .

Удачи!

Shell - 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 @[`{

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. Выполните алгоритм в коде-точке-пространстве: &.(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> 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 !

Python (33)

Если сомневаетесь, используйте оболочку.

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

К сожалению, это все еще дольше, чем решение 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)

Спасибо некоторым за исправленную версию.

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? 

Все отлично работает, но преимущество изменения |(или) ^(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

р

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

Я попробовал полдюжины способов заставить Replace работать так, как я хочу, без использования длинного [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.

Демо оригинал:

(Текущая версия проверена - скриншот еще не опубликован.)

к2, 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).

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