Поэлементное умножение строк

28

Вдохновленный этим вызовом (спасибо @cairdcoinheringaahing за заголовок!), Ваша задача - взять две печатные строки ASCII и умножить их поэлементно по следующим правилам.

Как это работает?

Учитывая две строки (например, splitи isbn), вы сначала обрежете более длинную, чтобы они имели равную длину, а затем определили их коды ASCII :

split -> spli -> [115, 112, 108, 105]
isbn  -> isbn -> [105, 115,  98, 110]

Следующим шагом будет сопоставление их с диапазоном [0..94]путем вычитания 32каждого кода:

[115, 112, 108, 105] -> [83, 80, 76, 73]
[105, 115,  98, 110] -> [73, 83, 66, 78]

Теперь вы умножите их поэлементно по модулю 95(чтобы остаться в области печати):

[83, 80, 76, 73] ⊗ [73, 83, 66, 78] -> [74, 85, 76, 89]

Добавить, 32чтобы вернуться к диапазону [32..126]:

[74, 85, 76, 89] -> [106, 117, 108, 121]

И последний шаг - отобразить их обратно в символы ASCII:

[106, 117, 108, 121] -> "july"

правила

  • Вы напишите программу / функцию, которая реализует описанные шаги для двух строк и либо печатает, либо возвращает полученную строку
  • Формат ввода гибкий: вы можете взять две строки, кортеж строк, список строк и т. Д.
  • Ввод может состоять из одной или двух пустых строк
  • Введенные символы будут находиться в диапазоне для печати ( [32..126])
  • Вывод либо выводится на консоль, либо вы возвращаете строку
  • Вывод может иметь конечные пробелы

Контрольные примеры

"isbn", "split"                  -> "july"
"", ""                           -> ""
"", "I don't matter"             -> ""
"             ", "Me neither :(" -> "             "
"but I do!", "!!!!!!!!!"         -> "but I do!"
'quotes', '""""""'               -> 'ck_iKg'
"wood", "hungry"                 -> "yarn"
"tray", "gzip"                   -> "jazz"
"industry", "bond"               -> "drop"
"public", "toll"                 -> "fall"
"roll", "dublin"                 -> "ball"
"GX!", "GX!"                     -> "!!!"
"4 lll 4", "4 lll 4"             -> "4 lll 4"
"M>>M", "M>>M"                   -> ">MM>"

Примечание : кавычки предназначены только для удобства чтения, в 6-м тесте я использовал 'вместо ".

ბიმო
источник
Разрешено ли иметь конечные пробелы в выводе?
Эрик Outgolfer
@EriktheOutgolfer Да. Извините, я добавил это после публикации.
ბიმო
Можем ли мы взять массив массивов строк? abc, def -> [['a', 'b', 'c'], ['d', 'e', 'f']]
полностью человек
@ totallyhuman Я бы так не сказал. Хотя, если в вашем языке строки - это массивы символов и символы имеют тот же тип, что и строки, то это будет правильным, я думаю.
ბიმო
Разрешено ли нам принимать входные данные в виде списка строк?
Захари

Ответы:

9

MATL , 12 байт

c32-p95\32+c

Попробуйте онлайн!

объяснение

c      % Implicitly input cell array of 2 strings. Convert to 2-row char matrix.
       % This pads the shorter string with spaces
32-    % Subtract 32, element-wise. Each char is interpreted as its ASCII code.
       % Note that padding spaces will give 0.
p      % Product of each column. Since (padding) spaces have been mapped to 0, the
       % product effectively eliminates those colums. So the effect is the same as
       % if string length had been limited by the shorter one
95\    % Modulo 95, element-wise
32+    % Add 32, element-wise
c      % Convert to char. Implicitly display
Луис Мендо
источник
1
Умный способ управления разницей длины строки.
Санчиз
6

Желе , 15 12 байт

z⁶O_32P€‘ịØṖ

Попробуйте онлайн!

-3 спасибо Джонатану Аллану .

Эрик Outgolfer
источник
Подлое злоупотребление конечными пробелами. ;)
Денис
@ Денис Ну, это в правилах, почему бы не злоупотреблять этим?
Эрик Outgolfer
Я считаю , что вы можете сохранить 3 байта, используя niladic атом для печатаемых символов, ØṖс z⁶O_32P€‘ịØṖ- вам лучше дважды проверить , что арифметика работает , хотя.
Джонатан Аллан
@JonathanAllan Конечно.
Эрик Outgolfer
5

Python 3 , 80 74 71 байт

lambda*t:''.join(map(lambda x,y:chr((ord(x)-32)*(ord(y)-32)%95+32),*t))

Спасибо @shooqie за 3 байта!

Попробуйте онлайн!

Деннис
источник
1
71 если взять (s, t)в качестве кортежа:lambda t:''.join(map(lambda x,y:chr((ord(x)-32)*(ord(y)-32)%95+32),*t))
shooqie
5

Python 2 , 75 70 байт

-3 байта благодаря предложению Денниса о предложении shooqie. -2 байта благодаря предложению Захари.

lambda*l:''.join(chr((ord(i)-32)*(ord(j)-32)%95+32)for i,j in zip(*l))

Попробуйте онлайн!

totallyhuman
источник
2
Тот же трюк, который был предложен в моем ответе:lambda*t:''.join(chr(((ord(i)-32)*(ord(j)-32))%95+32)for i,j in zip(*t))
Деннис
2
И тот же, который я много предложил: ((ord(i)-32)*(ord(j)-32))%95+32=> (ord(i)-32)*(ord(j)-32)%95+32...
Zacharý
о_о избиение Денниса. +1
Захари
1
Эх, не совсем, я просто изменил понимание списка вместо использования map. Я просто немного опоздал.
полностью человек
5

Haskell , 60 57 байт

zipWith(\a b->toEnum$f a*f b`mod`95+32)
f=(-32+).fromEnum

Попробуйте онлайн!

Первая строка - анонимная функция, принимающая два аргумента.

Это прямая реализация алгоритма: zipWithпринимает обе строки и применяет данную функцию к парам символов. Он обрабатывает усечение, а также работает для пустых строк. fromEnumи toEnumявляются альтернативами ordи chrдля переключения между символами и их значениями ASCII, которые не требуют длительного импорта.

Изменить: -3 байта благодаря Брюсу Форте.

Laikoni
источник
Вы можете сохранить 3байты, извлекая -32и сохраняя эти скобки, см. Здесь .
ბიმო
5

C ++, 331 291 282 270 268 байт, версия 2 = 178 176 150 148 байт

Оригинальная версия :

#include<string>
#include<algorithm>
#define L length()
#define S std::string
S m(S a,S b){S c;int m=a.L<b.L?a.L:b.L;auto l=[m](S&s){s=s.substr(0,m);std::for_each(s.begin(),s.end(),[](char&c){c-=32;});};l(a);l(b);for(int i=0;i<m;++i){c+=a[i]*b[i]%95+32;}return c;}

-40 байт благодаря Брюсу Форте
-39 байт благодаря Захари

Версия 2, вдохновленная ответами других людей

#include<string>
#define L length()
using S=std::string;S m(S a,S b){S c;for(int i=0;i<(a.L<b.L?a.L:b.L);++i)c+=(a[i]-32)*(b[i]-32)%95+32;return c;}

Если в первой версии используется лямбда, то это потому, что я хотел протестировать функцию std :: async в C ++ 11, которую я только что изучил, поэтому я сохранил ее без всяких причин ...

Более читаемая версия:

#include<iostream>
#include<string>
#include<algorithm>

using namespace std;

#define L length()
#define S string

//Function code for the original version
S m(S a,S b) {
    S c;
    int m = a.L < b.L ? a.L : b.L;

    auto l=[m](S&s){
        s = s.substr(0, m);
        for_each(s.begin(),s.end(),[](char&c){
            c -= 32;
        });
    };
    l(a);
    l(b);
    for(int i=0;i<m;++i) {
        c += a[i] * b[i] % 95 + 32;
    }
    return c;
}

//Code for the version 2
S m2(S a,S b) {
    S c;
    for(int i = 0; i < (a.L < b.L ? a.L : b.L); ++i) {
        c += (a[i] - 32) * (b[i] - 32) % 95 + 32;
    }
    return c;
}

int main() {
    string a, b, c;
    getline(cin, a);
    getline(cin, b);
    c = m(a, b);
    cout << c;
}
HatsuPointerKun
источник
1
Добро пожаловать в PPCG!
Мартин Эндер
Добро пожаловать на сайт! Спасибо за ваш ответ, я ценю это. У меня нет опыта игры в гольф с C ++, но здесь вы найдете несколько советов. Приятного времяпровождения здесь!
ბიმო
Кроме того, я уверен, что вы можете просто отправить функцию, как это .
მოიმო
Вы не можете удалить пробелы здесь: #include <string>=> #include<string>и #include <algorithm>=> #include<algorithm>?
Захари
Кроме того, вы должны быть в состоянии создать макрос stringи использовать его соответственно.
Захари
3

Dyalog APL, 36 34 33 25 24 байта

{⎕UCS 32+95|×⌿32-⎕UCS↑⍵}

Попробуйте онлайн (TryAPL)!

Попробуйте онлайн (TIO)!

Ввод представляет собой список строк, и имеет пробел в конце.

Вот как это работает:

{⎕UCS 32+95|×⌿32-⎕UCS↑⍵}
                     ↑⍵ - the input as a 2d array
                 ⎕UCS   - codepoints
              32-       - subtract 32
            ×⌿          - element wise product reduction ([a,b]=>a×b)
         95|            - Modulo 95
      32+               - Add 32
 ⎕UCS                   - Unicode characters
Zachary
источник
Я не получил интерфейс tryapl.org, так что вот TIO для тех, кто хочет попробовать.
ბიმო
Там я положил оба там.
Захари
3

FSharp 275 байт

let f (p : string, q : string) =     
let l = if p.Length < q.Length then p.Length else q.Length
p.Substring(0,l).ToCharArray() |> Array.mapi (fun i x -> (((int(x) - 32) * (int(q.[i]) - 32)) % 95) + 32) |> Array.map (fun x -> char(x).ToString()) |> Array.fold(+) ""
Laco
источник
Добро пожаловать в PPCG!
Мартин Эндер
169 байт
только для ASCII,
127 байтов
только ASCII
126 байтов
только ASCII
124 байта
только ASCII
2

C # (.NET Core) , 100 96 95 байтов

(l,n)=>{for(int i=0;i<l.Length&i<n.Length;)Console.Write((char)((l[i]-32)*(n[i++]-32)%95+32));}

Попробуйте онлайн!

-4 байта благодаря @ Zacharý

-1 байт, перемещая приращение

Использует лямбду и злоупотребляет тем фактом, что символы в основном являются целыми числами.

jkelm
источник
Вы можете использовать (l[i]-32)*(n[i]-32)%95+32?
Захари
Почему да, я могу. Благодарность!
17
1
Вам нужно полностью определить, Consoleи вы можете использовать карри для сохранения байта. Компилировать в Action<string, Action<string>>лайк l=>n=>и называть лайк("word")("string")
TheLethalCoder
2

Mathematica, 114 байт

(a=Min@StringLength[x={##}];FromCharacterCode[Mod[Times@@(#-32&/@ToCharacterCode/@(StringTake[#,a]&/@x)),95]+32])&


вход

[ "Общественность", "платный"]

J42161217
источник
Есть ли способ попробовать это онлайн?
მოიმო
конечно, перейдите на sandbox.open.wolframcloud.com/app/objects вставьте код, вставьте ввод в конце, нажмите Shift + Enter
J42161217
что такое "8 символов"?
J42161217
Извините за путаницу! Сообщение "Спасибо!" было бы слишком коротким, чтобы разместить просто так, нужно 8 символов больше.
ბიმო
3
хорошо ....................................
J42161217
2

С накоплением , 52 байта

[,:$#'"!MIN$take"![CS#.toarr]"!32-prod 95%32+#:''#`]

Попробуйте онлайн!

Функция, которая принимает два аргумента из стека.

объяснение

[,:$#'"!MIN$take"![CS#.toarr]"!32-prod 95%32+#:''#`]

Давайте посмотрим на первую часть, считая сверху два элемента 'split'и 'isbn':

,:$#'"!MIN$take"!      stack:                      ('split' 'isbn')
,                      pair top two:               (('split' 'isbn'))
 :                     duplicate:                  (('split' 'isbn') ('split' 'isbn'))
  $#'                  length function literal:    (('split' 'isbn') ('split' 'isbn') $#')
    "!                 execute on each:            (('split' 'isbn') (5 4))
      MIN              obtain the minimum:         (('split' 'isbn') 4)
         $take         "take" function literal:    (('split' 'isbn') 4 $take)
                       (e.g. `'asdf' 2 take` is `'as'`)
              "!       vectorized binary each:     (('spli' 'isbn'))

Эта часть выполняет обрезку.

Затем:

[CS#.toarr]"!     stack: (('spli' 'isbn'))
[         ]"!     perform the inside on each string
                  string `'spli'`:
 CS               convert to a character string:    $'spli'
   #.             vectorized "ord":                 (115 112 108 105)
     toarr        convert to array:                 (115 112 108 105)
                  (needed for empty string, since `$'' #.` == `$''` not `()`

Тогда последняя часть:

32-prod 95%32+#:''#`  stack: (((115 112 108 105) (105 115  98 110)))
32-                   subtract 32 from each character code:   (((83 80 76 73) (73 83 66 78)))
   prod               reduce multiplication over the array:   ((6059 6640 5016 5694))
        95%           modulus 95:                             ((74 85 76 89))
           32+        add 32:                                 ((106 117 108 121))
              #:      convert to characters:                  (('j' 'u' 'l' 'y'))
                ''#`  join:                                   ('july')
Конор О'Брайен
источник
2

R , 88 байт

function(r,s,u=utf8ToInt)intToUtf8((((u(r)-32)*(u(s)-32))%%95+32)[0:min(nchar(c(r,s)))])

анонимная функция; принимает входные данные в виде двух строк; Третий аргумент просто для того, чтобы убедиться, что это однострочная функция и сохранить несколько байтов

Ссылка TIO ниже возвращает массив с записями, названными с первым вводом.

Попробуйте все тестовые случаи!

Giuseppe
источник
2

05AB1E , 16 15 байт

.BÇ32-`*₃%32+çJ

Попробуйте онлайн!

-1 Эмигна указывает на толчки 95.


                 # ['hi', 'you']
.B               # [['hi ', 'you']]
  Ç              # [[[104, 105, 32], [121, 111, 117]]]
   32-           # [[[72, 73, 0], [89, 79, 85]]]
      `          # [[72, 73, 0], [89, 79, 85]]
       *         # [[6408, 5767, 0]]
        ₃%       # [[43, 67, 0]]
          32+    # [[75, 99, 32]]
             ç   # [['K', 'c', ' ']]
              J  # ['Kc ']

.BÇ32-`*95%žQsèJ

Другой.

Урна волшебного осьминога
источник
сохраняет байт. Слишком плохо насчет ввода пустой строки. В противном случае øсэкономил бы еще несколько.
Emigna
2

Java 8, 127 115 97 95 байт

a->b->{for(int i=0;i<a.length&i<b.length;System.out.printf("%c",(a[i]-32)*(b[i++]-32)%95+32));}

Объяснение:

Попробуй это здесь.

a->b->{                       // Method with 2 char-array parameters and no return-type
  for(int i=0;                //  Index-integer, starting at 0
      i<a.length&i<b.length;  //  Loop over both arrays up to the smallest of the two
    System.out.printf("%c",   //   Print, as character:
      (a[i]-32)               //    Current char of `a` minus 32
      *(b[i++]-32)            //    multiplied with current char of `b` minus 32
      %95                     //    Take modulo-95 of that multiplied result
      +32));}                 //    And add 32 again
Кевин Круйссен
источник
1

C #, 166 байт

using System.Linq;s=>t=>{int e=s.Length,n=t.Length,l=e>n?n:e;return string.Concat(s.Substring(0,l).Select((c,i)=>(char)((((c-32)*(t.Substring(0,l)[i]-32))%95)+32)));}

Я уверен, что много предстоит сыграть в гольф, но сейчас у меня нет времени.

Попробуйте онлайн!

Полная / Отформатированная версия:

using System;
using System.Linq;

class P
{
    static void Main()
    {
        Func<string, Func<string, string>> f = s => t =>
        {
            int e = s.Length, n = t.Length, l = e > n ? n : e;

            return string.Concat(s.Substring(0, l).Select((c, i) => (char)((((c - 32) * (t.Substring(0, l)[i] - 32)) % 95) + 32)));
        };

        Console.WriteLine(string.Concat(f("split")("isbn")));

        Console.ReadLine();
    }
}
TheLethalCoder
источник
Я думаю, что (((c-32)*(t.Substring(0,l)[i]-32))%95)+32)может быть ((c-32)*(t.Substring(0,l)[i]-32)%95+32)(возможно,
испортил там
1

Japt , 24 байта

¬íVq)®®©c -HÃ×u95 +H dÃq

Возвращает строку с завершающим null-chars ( \u0000), когда первый вход длиннее второго.

Попробуйте онлайн! с -Qфлагом, чтобы показать форматированный вывод, включая нулевые символы.

Запустите все тестовые случаи, используя мой WIP CodePen.

Джастин Маринер
источник
1

Python 2 , 95 73 байта

  • Спасибо @ Zacharý за 4 байта: удалены ненужные скобки
lambda x,y:''.join(chr((ord(i)-32)*(ord(j)-32)%95+32)for i,j in zip(x,y))

Попробуйте онлайн!

officialaimm
источник
3
Боже мой, научись пользоваться порядком операций! (((ord(x[i])-32)*(ord(y[i])-32))%95)+32=>(ord(x[i])-32)*(ord(y[i])-32)%95+32
Захари
1

Древесный уголь , 30 байт

F⌊⟦LθLη⟧℅⁺³²﹪×⁻³²℅§θι⁻³²℅§ηι⁹⁵

Попробуйте онлайн! Ссылка на подробную версию кода. Я на самом деле написал калькуляцию, (32 - ord(q)) * (32 - ord(h))потому что она избегает последовательных числовых литералов, но я думаю, что я мог бы просто написать (ord(q) - ord(" ")) * (ord(h) - ord(" "))вместо этого.

Нил
источник
1

Perl 5 , 95 байт

@a=<>=~/(.)/g;@b=<>=~/(.)/g;$#a=$#b if@a>@b;print chr 32+(-32+ord$_)*(-32+ord$b[$i++])%95 for@a

Попробуйте онлайн!

Объяснение:

@a=<>=~/(.)/g;@b=<>=~/(.)/g;  # Split the strings into 2 arrays
$#a=$#b if@a>@b;              # Truncate the first if longer than the second
print chr 32+(-32+ord$_)*(-32+ord$b[$i++])%95 for@a  # Multiply each character
Xcali
источник
1
Я думаю, что вы не правильно обрезаете результат до длины меньшей строки (см. Здесь ).
Дада
Вы правы. Исправлено это по стоимости многих байтов
Xcali
1

Пип , 19 байт

(PA$* *(PA@?Zg)%95)

Принимает строки в качестве аргументов командной строки. Попробуйте онлайн!

объяснение

(PA$* *(PA@?Zg)%95)
                     g is list of args; PA is string of all printable ASCII characters
            Zg       Zip items of g together: result is list of pairs of characters
        PA@?         Find index of each character in PA
       (      )      (Parentheses to get correct operator precedence)
   $* *              Map (fold on *) to the list: multiplies each pair of numbers
               %95   Take list items mod 95
(PA               )  Use those numbers to index into PA again
                     Print the resulting list of chars, concatenated together (implicit)
DLosc
источник
1

Фактор , 45

[ [ [ 32 - ] bi@ * 95 mod 32 + ] "" 2map-as ]

Это цитата (лямбда), callона с двумя строками в стеке, оставляет новую строку в стеке.

Как слово:

: s* ( s1 s2 -- ps ) [ [ 32 - ] bi@ * 95 mod 32 + ] "" 2map-as ;

"M>>M" "M>>M" s*      ! => ">MM>"
dup s*                ! => "M>>M"
dup s*                ! => ">MM>"
...
Федерация с.
источник
1

K (ок) , 26 байтов

Решение:

`c$32+95!*/-32+(&/#:'x)$x:

Попробуйте онлайн!

Пример:

`c$32+95!*/-32+(&/#:'x)$x:("split";"isbn")
"july"

Объяснение:

Оценка выполняется справа налево:

`c$32+95!*/-32+(&/#:'x)$x: / the solution
                        x: / assign input to variable x
                       $   / pad right to length on left
               (  #:'x)    / count each x (return length of each char list in list)
                &/         / min-over, get the minimum of these counts
           -32+            / subtract 32, this automagically converts chars -> ints
         */                / multiply-over, product of the two lists
      95!                  / modulo 95
   32+                     / add 32 back again
`c$                        / convert to character array
streetster
источник
0

PHP, 112 байт

for($i=0;$i<min(strlen($a=$argv[1]),strlen($b=$argv[2]));$i++)echo chr((ord($a[$i])-32)*(ord($b[$i])-32)%95+32);
jstnthms
источник
109 байт: for($i=0;$i<strlen($a=$argv[1])&&$i<strlen($b=$argv[2]);)echo chr((ord($a[$i])-32)*(ord($b[$i++])-32)%95+32); Кроме того , я не совсем уверен , что замена &&с &также может быть возможно в PHP, уменьшая его другим байта до 108 .
Кевин Круйссен,
0

JavaScript (ES6), 89 байт

Javascript и проклятие длинных имен функций ...

Использование каррирования и тот факт, что charCodeAtвозвращается NaNпри вызове с недопустимой позиции. На выходе могут быть завершающие нули.

a=>b=>a.replace(/./g,(c,i)=>String.fromCharCode((z=x=>x.charCodeAt(i)-32)(a)*z(b)%95+32))

Тест

var f=
a=>b=>a.replace(/./g,(c,i)=>String.fromCharCode((z=x=>x.charCodeAt(i)-32)(a)*z(b)%95+32))

q=x=>'['+x+']'

;[["isbn", "split"],["", ""],["", "I don't matter"],["             ", "Me neither :("],
["but I do!", "!!!!!!!!!"],['quotes', '""""""'],["wood", "hungry"],["tray", "gzip"],
["industry", "bond"],["public", "toll"],["roll", "dublin"],["GX!", "GX!"],
["4 lll 4", "4 lll 4"],["M>>M", "M>>M"]]
.forEach(([a,b])=>console.log(q(a)+' x '+q(b)+' --> '+q(f(a)(b))))

edc65
источник