กำหนดอินพุตของสตริงตัวพิมพ์เล็กทั้งหมด[a-z]เอาท์พุทระยะทางรวมระหว่างตัวอักษร
Input: golf
Distance from g to o : 8
Distance from o to l : 3
Distance from l to f : 6
Output: 17
xและcคือ 5)
Input: aa
Output: 0
Input: stack
Output: 18
Input: zaza
Output: 3
Input: valleys
Output: 35
คำตอบ:
OIæ%13AS
บันทึก 3 ไบต์ด้วย @มาร์ตินเอนเดอร์
ลองออนไลน์!หรือตรวจสอบกรณีทดสอบทั้งหมด
OIæ%13AS Input: string Z
O Ordinal. Convert each char in Z to its ASCII value
I Increments. Find the difference between each pair of values
æ%13 Symmetric mod. Maps each to the interval (-13, 13]
A Absolute value of each
S Sum
Return implicitly
æเป็นสอง)
q=map$(-)13.abs
sum.q.q.(zipWith(-)=<<tail).map fromEnum
ตัวอย่างการใช้งาน: ->sum.q.q.(zipWith(-)=<<tail).map fromEnum $ "valleys"35
มันทำงานอย่างไร:
q=map$(-)13.abs -- helper function.
-- Non-pointfree: q l = map (\e -> 13 - abs e) l
-- foreach element e in list l: subtract the
-- absolute value of e from 13
map fromEnum -- convert to ascii values
zipWith(-)=<<tail -- build differences of neighbor elements
q.q -- apply q twice on every element
sum -- sum it up
แก้ไข: @Damien บันทึกหนึ่งไบต์ ขอบคุณ!
q.q)
mapคำจำกัดความของqหนึ่งไบต์น้อย
dt_v26\X<s
ขอบคุณ@Sueverสำหรับการบันทึก 4 ไบต์!
คำอธิบาย:
d % Take the difference between consecutive characters
t_ % Make a copy of this array, and take the negative of each element
v % Join these two arrays together into a matrix with height 2
26\ % Mod 26 of each element
X< % Grab the minimum of each column
s % Sum these. Implicitly print
รุ่นก่อนหน้า:
d26\t13>26*-|s
lambda s:sum([13-abs(13-abs(ord(a)-ord(b)))for a,b in zip(s,s[1:])])
ทำให้พังถล่ม:
lambda s:
sum( )
[ for a,b in zip(s,s[1:])]
13-abs(13-abs(ord(a)-ord(b)))
for
f=lambda a,b,*s:13-abs(13-abs(ord(a)-ord(b)))+(s and f(b,*s)or 0)
int f(String s){byte[]z=s.getBytes();int r=0,i=0,e;for(;++i<z.length;r+=(e=(26+z[i]-z[i-1])%26)<14?e:26-e);return r;}
ขอบคุณ @KevinCruijssen สำหรับการชี้จุดบกพร่องในรุ่นดั้งเดิมและแนะนำให้ทำ for-loop ว่างเปล่า
การใช้(26 + z[i] - z[i - 1]) % 26)เป็นแรงบันดาลใจจากความคิดเห็นโดย @Neil กับคำตอบอื่น (26 + ...)%26มีจุดมุ่งหมายเดียวกันเป็นเพราะMath.abs(...)...? e : 26 - e
Ungolfed :
int f(String s) {
byte[]z = s.getBytes();
int r = 0, i = 0, e;
for (; ++i < z.length; r += (e = (26 + z[i] - z[i - 1]) % 26) < 14 ? e : 26 - e);
return r;
}
[edit] those details into the top of your post, with this markdown: #Language, n bytes`
-ก่อนหน้าeในเวอร์ชันที่ไม่ได้รับการอวดของคุณ
e=z[i]-z[i-1];ดังนั้นคุณอาจต้องโยนไป(byte)หรือเปลี่ยนไปe intนอกจากนี้คุณสามารถลบวงเล็บสำหรับห่วงโดยวางทุกอย่างไว้ใน for-loop เช่นนี้int f(String s){byte[]z=s.getBytes();int r=0,i=0,e;for(;++i<z.length;r+=(e=z[i]-z[i-1])>0?e<14?e:26-e:-e<14?-e:e+26);return r;}(PS: การย้อนกลับของ for-loop นั้นน่าเสียดายที่มีความยาวเท่ากัน: int f(String s){byte[]z=s.getBytes();int r=0,i=z.length-1,e;for(;i>0;r+=(e=z[i]-z[--i])>0?e<14?e:26-e:-e<14?-e:e+26);return r;}.
บันทึก 3 ไบต์ด้วย Cyoce:
f=([d,...s],p=parseInt,v=(26+p(s[0],36)-p(d,36))%26)=>s[0]?f(s)+(v>13?26-v:v):0คำอธิบาย:
f=(
[d,...s], //Destructured input, separates first char from the rest
p=parseInt, //p used as parseInt
v=(26+p(s[0],36)-p(d,36))%26 //v is the absolute value of the difference using base 36 to get number from char
)
)=>
s[0]? //If there is at least two char in the input
f(s) //sum recursive call
+ //added to
(v>13?26-v:v) //the current shortest path
: //else
0 //ends the recursion, returns 0ตัวอย่าง: การ
โทร: f('golf')
เอาท์พุท:17
82 ไบต์ขอบคุณ Neil:
f=([d,...s],v=(26+parseInt(s[0],36)-parseInt(d,36))%26)=>s[0]?f(s)+(v>13?26-v:v):084 ไบต์:
f=([d,...s],v=Math.abs(parseInt(s[0],36)-parseInt(d,36)))=>s[0]?f(s)+(v>13?26-v:v):0Math.abs(...)ที่คุณสามารถใช้(26+...)%26; ใช้งานได้เพราะคุณกำลังพลิกค่าที่สูงกว่า 13 ต่อไป (ฉันคิดว่านี่เป็นวิธีที่คำตอบของ MATL ทำงาน)
p=parseInt;แล้วใช้p()แทนparseInt()
->x{eval x.chars.each_cons(2).map{|a,b|13-(13-(a.ord-b.ord).abs).abs}*?+}
for(;++$i<strlen($s=$argv[1]);)$r+=13<($a=abs(ord($s[$i-1])-ord($s[$i])))?$a=26-$a:$a;echo$r;
SÇ¥YFÄ5Ø-}(O
คำอธิบาย
SÇ # convert to list of ascii values
¥ # take delta's
YF } # 2 times do
Ä5Ø- # for x in list: abs(x) - 13
(O # negate and sum
รวม +3 สำหรับ-p(ประกอบด้วยรหัส')
ให้อินพุตบน STDIN โดยไม่ขึ้นบรรทัดใหม่:
echo -n zaza | stringd.pl
stringd.pl:
#!/usr/bin/perl -p
s%.%$\+=13-abs 13-abs ord($&)-ord$'.$&%eg}{
(λ(s)(for/sum((i(sub1(string-length s))))(abs(-(char->integer
(string-ref s i))(char->integer(string-ref s(+ 1 i)))))))
การทดสอบ:
(f "golf")
เอาท์พุท:
17
รุ่นโดยละเอียด:
(define(f s)
(for/sum((i(sub1(string-length s))))
(abs(-(char->integer(string-ref s i))
(char->integer(string-ref s(+ 1 i)))))))
(define(f s)ด้วย(lambda(s), 2 ไบต์สั้นลง (ฟังก์ชั่นที่ไม่ระบุชื่อเป็นเรื่องปกติ)
(λ(s)ด้วยซึ่งถ้าใน utf8 คือ 6 ไบต์ฉันคิดว่า
วิธีแก้ปัญหาที่ดีขึ้น - แทนที่ Math.Abs () ด้วยเคล็ดลับการเพิ่ม & modulo เพื่อบันทึก 2 ไบต์:
s=>{int l=0,d,i=0;for(;i<s.Length-1;)l+=(d=(s[i]-s[++i]+26)%26)>13?26-d:d;return l;};
วิธีแก้ปัญหาเบื้องต้น :
s=>{int l=0,d,i=0;for(;i<s.Length-1;)l+=(d=Math.Abs(s[i]-s[++i]))>13?26-d:d;return l;};
แหล่งที่มาเต็มรูปแบบรวมถึงกรณีทดสอบ:
using System;
namespace StringDistance
{
class Program
{
static void Main(string[] args)
{
Func<string,int>f= s=>{int l=0,d,i=0;for(;i<s.Length-1;)l+=(d=Math.Abs(s[i]-s[++i]))>13?26-d:d;return l;};
Console.WriteLine(f("golf")); //17
Console.WriteLine(f("aa")); //0
Console.WriteLine(f("stack")); //18
Console.WriteLine(f("zaza")); //3
Console.WriteLine(f("valleys"));//35
}
}
}
อ้างอิงบางส่วนจากคำตอบ Ruby ของ cia_ranaคำตอบของทับทิม
มีข้อผิดพลาดกับการเป็นO(ในกรณีนี้แมอ๊อด () มากกว่าสตริง) ซึ่งมันจะไม่ทำงานกับd(dequeue องค์ประกอบด้านล่าง) และp(pop องค์ประกอบแรก) #โดยแปลงแรกแผนที่ไปยังรายการที่มี ข้อผิดพลาดนี้ได้รับการแก้ไข แต่การแก้ไขที่ใหม่กว่าความท้าทายนี้ดังนั้นฉันได้เก็บไว้#ใน
แก้ไข:และนับไบต์ผิดตั้งแต่เดือนกันยายน อ๊ะ
ยินดีต้อนรับคำแนะนำการเล่นกอล์ฟ ลองออนไลน์!
O#;dX@pX♀-`A;úl-km`MΣ
Ungolfing
Implicit input string.
The string should already be enclosed in quotation marks.
O# Map ord() over the string and convert the map to a list. Call it ords.
; Duplicate ords.
dX Dequeue the last element and discard it.
@ Swap the with the duplicate ords.
pX Pop the last element and discard it. Stack: ords[:-1], ords[1:]
♀- Subtract each element of the second list from each element of the first list.
This subtraction is equivalent to getting the first differences of ords.
`...`M Map the following function over the first differences. Variable i.
A; abs(i) and duplicate.
úl Push the lowercase alphabet and get its length. A golfy way to push 26.
- 26-i
k Pop all elements from stack and convert to list. Stack: [i, 26-i]
m min([i, 26-i])
Σ Sum the result of the map.
Implicit return.
int f(String s){char[]c=s.toCharArray();int t=0;for(int i=1,a;i<c.length;a=Math.abs(c[i]-c[i++-1]),t+=26-a<a?26-a:a);return t;}
int f(String s){
char[]c=s.toCharArray();
int t=0;
for(int i=1,a;
i<c.length;
a=Math.abs(c[i]-c[i++-1]),t+=26-a<a?26-a:a);
return t;
}
Lm-13.adbsyy-M.:CMQ2
โปรแกรมที่รับอินพุตของสตริงที่ยกมาบน STDIN และพิมพ์ผลลัพธ์
มันทำงานอย่างไร
Lm-13.adbsyy-M.:CMQ2 Program. Input: Q
L def y(b) ->
m b Map over b with variable d:
-13 13-
.ad abs(d)
CMQ Map code-point over Q
.: 2 All length 2 sublists of that
-M Map subtraction over that
yy y(y(that))
s Sum of that
Implicitly print
od -tuC|dc -e'?dsN0sT[lNrdsNr-d*vdD[26-]sS<Sd*vlT+sTd0<R]dsRxlTp'คำอธิบาย:
เพราะในdcคุณไม่สามารถเข้าถึงอักขระของสตริงได้ฉันจึงใช้odเพื่อรับค่า ASCII สิ่งเหล่านี้จะถูกดำเนินการในลำดับย้อนกลับจากสแต็ก (คอนเทนเนอร์ LIFO) ดังนี้:
dsN0sT # initialize N (neighbor) = top ASCII value, and T (total) = 0
[lNrdsNr- # loop 'R': calculate difference between current value and N,
#updating N (on the first iteration the difference is 0)
d*vdD[26-]sS<S # get absolute value (d*v), push 13 (D) and call 'S' to subtract
#26 if the difference is greater than 13
d*vlT+sT # get absolute value again and add it to T
d0<R]dsR # repeat loop for the rest of the ASCII values
xlTp # the main: call 'R' and print T at the endวิ่ง:
echo -n "golf" | ./string_distance.shเอาท์พุท:
17t,u;f(char*s){for(t=0;*++s;u=*s-s[-1],t+=(u=u<0?-u:u)>13?26-u:u);return t;}
สมมติว่าสตริงอินพุตมีความยาวอย่างน้อยหนึ่งตัว สิ่งนี้ไม่ต้องการ#include<stdlib.h>
แก้ไข: Argh จุดลำดับ!
k,i;f(char *s){for(i=0;*++s;i+=(k=abs(*s-s[-1]))>13?26-k:k);return i;}
def f(s:String)=(for(i<-0 to s.length-2)yield (s(i)-s(i+1)).abs).sum
คำติชมก็ยินดีต้อนรับ
แข็งแรงเล่นกอล์ฟ:
IEnumerable<int>g(string k){Func<Char,int>x=(c)=>int.Parse(""+Convert.ToByte(c))-97;for(int i=0;i<k.Length-1;i++){var f=x(k[i]);var s=x(k[i+1]);var d=Math.Abs(f-s);yield return d>13?26-Math.Max(f,s)+Math.Min(f,s):d;}}
Ungolfed:
IEnumerable<int> g(string k)
{
Func<Char, int> x = (c) => int.Parse("" + Convert.ToByte(c)) - 97;
for (int i = 0; i < k.Length - 1; i++)
{
var f = x(k[i]);
var s = x(k[i + 1]);
var d = Math.Abs(f - s);
yield return d > 13 ? 26 - Math.Max(f, s) + Math.Min(f, s) : d;
}
}
เอาท์พุท:
aa: 0
stack: 18
zaza: 3
valleys: 35
'a' คือ 97 เมื่อแปลงเป็นไบต์ดังนั้น 97 จะถูกลบออกจากแต่ละรายการ หากความแตกต่างมากกว่า 13 (เช่นครึ่งหนึ่งของตัวอักษร) ให้ลบความแตกต่างระหว่างตัวละครแต่ละตัว (ค่าไบต์) จาก 26 การเพิ่ม "ผลตอบแทนคืน" ในนาทีสุดท้ายของการบันทึก "!
ที่มีรายชื่อในความเข้าใจ
d=input()
print(sum([min(abs(x-y),x+26-y)for x,y in[map(lambda x:(ord(x)-97),sorted(d[i:i+2]))for i in range(len(d))][:-1]]))
abs(x-y)โดยy-xตั้งแต่การเรียกร้องให้ทำsorted x < y
for($w=$argv[1];$w[++$i];)$s+=13-abs(13-abs(ord($w[$i-1])-ord($w[$i])));echo$s;
int f(String s){int x=0,t,a=0;for(byte b:s.getBytes()){t=a>0?(a-b+26)%26:0;t=t>13?26-t:t;x+=t;a=b;}return x;
æ%ในขณะที่อ่านหนังสือในเครื่องเมื่อวันก่อนและมันก็ถูกสร้างขึ้นมาสำหรับปัญหา (ประเภท) นี้:OIæ%13AS