Thử thách này hơi khó, nhưng khá đơn giản, được đưa ra một chuỗi s:

meta.codegolf.stackexchange.com

Sử dụng vị trí của ký tự trong chuỗi làm xtọa độ và giá trị ascii làm ytọa độ. Đối với chuỗi trên, tập hợp tọa độ tổng hợp sẽ là:

0, 109
1, 101
2, 116
3, 97
4, 46
5, 99
6, 111
7, 100
8, 101
9, 103
10,111
11,108
12,102
13,46
14,115
15,116
16,97
17,99
18,107
19,101
20,120
21,99
22,104
23,97
24,110
25,103
26,101
27,46
28,99
29,111
30,109

Tiếp theo, bạn phải tính toán cả độ dốc và độ chặn y của tập hợp bạn đã thu được bằng cách sử dụng hồi quy tuyến tính , đây là tập hợp được vẽ ở trên:

Kết quả nào phù hợp nhất với dòng (0-index):

y = 0.014516129032258x + 99.266129032258

Đây là dòng phù hợp nhất 1 chỉ mục :

y = 0.014516129032258x + 99.251612903226

Vì vậy, chương trình của bạn sẽ trở lại:

f("meta.codegolf.stackexchange.com") = [0.014516129032258, 99.266129032258]

Hoặc (Bất kỳ định dạng hợp lý nào khác):

f("meta.codegolf.stackexchange.com") = "0.014516129032258x + 99.266129032258"

Hoặc (Bất kỳ định dạng hợp lý nào khác):

f("meta.codegolf.stackexchange.com") = "0.014516129032258\n99.266129032258"

Hoặc (Bất kỳ định dạng hợp lý nào khác):

f("meta.codegolf.stackexchange.com") = "0.014516129032258 99.266129032258"

Chỉ cần giải thích lý do tại sao nó trở lại ở định dạng đó nếu nó không rõ ràng.

Một số quy tắc làm rõ:

- Strings are 0-indexed or 1 indexed both are acceptable.
- Output may be on new lines, as a tuple, as an array or any other format.
- Precision of the output is arbitrary but should be enough to verify validity (min 5).

Đây là chiến thắng đếm byte thấp nhất trong mã golf .

MATL , 8 byte

n:G3$1ZQ

Lập chỉ mục chuỗi dựa trên 1 được sử dụng.

Hãy thử trực tuyến!

Giải trình

n:     % Input string implicitly. Push [1 2 ... n] where n is string length.
       % These are the x values
G      % Push the input string. A string is an array of chars, which is
       % equivalent to an array of ASCII codes. These are the y values
3$     % The next function will use 3 inputs
1      % Push 1
ZQ     % Fit polynomial of degree 1 to those x, y data. The result is an
       % array with the polynomial coefficients. Implicitly display

Octave, 29 26 24 20 byte

@(s)s/[!!s;1:nnz(s)]

Hãy thử trực tuyến!

Chúng tôi có mô hình

y= intercept *x^0 + slope * x
 = intercept * 1  + slope * x

Đây ylà giá trị ASCII của chuỗis

Để tìm tham số chặn và độ dốc, chúng ta có thể tạo phương trình sau:

s = [intercept slope] * [1 X]

vì thế

[intercept slope] = s/[1 x]

!!schuyển đổi một chuỗi thành một vectơ của những chuỗi có cùng độ dài với chuỗi.
Vectơ của những cái được sử dụng để ước tính đánh chặn.
1:nnz(s)là phạm vi của các giá trị từ 1 đến số phần tử của chuỗi được sử dụng như x.

Câu trả lời trước

@(s)ols(s'+0,[!!s;1:nnz(s)]')

Để kiểm tra, dán đoạn mã sau vào Octave Online

(@(s)ols(s'+0,[!!s;1:nnz(s)]'))('meta.codegolf.stackexchange.com')

Hàm chấp nhận một chuỗi làm đầu vào và áp dụng ước lượng bình phương nhỏ nhất của mô hình y = x*b + e

Đối số đầu tiên của ols là yđối với nó, chúng ta hoán vị chuỗi svà thêm số 0 để lấy mã ASCII.

TI-Basic, 51 (+ 141) byte

Chuỗi là 1 dựa trên TI-Basic.

Input Str1
seq(I,I,1,length(Str1->L1
32+seq(inString(Str2,sub(Str1,I,1)),I,1,length(Str1->L2
LinReg(ax+b)

Giống như ví dụ khác, điều này đưa ra phương trình của dòng phù hợp nhất, theo X. Ngoài ra, trong Str2, bạn cần phải có chuỗi này, là 141 byte trong TI-Basic:

! "# $% & '() * +, -. / 0123456789 :; <=>? @ ABCDEFGHIJKLMNOPQRSTUVWXYZ [] ^ _abcdefghijklmnopqrstuvwxyz{|}~

Lý do đây không thể là một phần của chương trình là vì hai ký tự trong TI-Basic không thể tự động được thêm vào chuỗi. Một là STO->mũi tên, nhưng đây không phải là vấn đề vì nó không phải là một phần của ASCII. Cái còn lại là chuỗi ký tự ( "), chỉ có thể được xâu chuỗi bằng cách nhập vào một Y=phương trình và sử dụng Equ>String(.

R, 46 45 byte

x=1:nchar(y<-scan(,""));lm(utf8ToInt(y)~x)$co

Đọc đầu vào từ stdin và cho trường hợp kiểm tra trả về đã trả về (một chỉ mục):

(Intercept)           x 
99.25161290  0.01451613 

Python, 82 80 byte

_{-2 byte nhờ @Mego}

Sử dụng scipy:

import scipy
lambda s:scipy.stats.linregress(range(len(s)),list(map(ord,s)))[:2]

Toán học, 31 byte

Fit[ToCharacterCode@#,{1,x},x]&

Hàm không tên lấy một chuỗi làm đầu vào và trả về phương trình thực tế của dòng phù hợp nhất trong câu hỏi. Ví dụ, f=Fit[ToCharacterCode@#,{1,x},x]&; f["meta.codegolf.stackexchange.com"]trả về 99.2516 + 0.0145161 x.

ToCharacterCodechuyển đổi một chuỗi ASCII thành một danh sách các giá trị ASCII tương ứng; thực tế, nó mặc định là UTF-8 nói chung. (Thật đáng buồn, trong bối cảnh này, một tên hàm bao gồm hơn 48% độ dài mã ....) Và Fit[...,{1,x},x]được tích hợp để tính toán hồi quy tuyến tính.

Node.js, 84 byte

Sử dụng regression:

s=>require('regression')('linear',s.split``.map((c,i)=>[i,c.charCodeAt()])).equation

Bản giới thiệu

// polyfill, since this is clearly not Node.js
function require(module) {
  return window[module];
}
// test
["meta.codegolf.stackexchange.com"].forEach(function test(string) {
  console.log(string);
  console.log(this(string));
},
// submission
s=>require('regression')('linear',s.split``.map((c,i)=>[i,c.charCodeAt()])).equation
);

<script src="https://cdn.rawgit.com/Tom-Alexander/regression-js/master/src/regression.js"></script>

Sage, 76 byte

var('m','c')
y(x)=m*x+c
f=lambda x:find_fit(zip(range(len(x)),map(ord,x)),y)

Hầu như không chơi golf, có lẽ dài hơn câu trả lời của Python, nhưng vâng ...

J , 11 byte

3&u:%.1,.#\

Điều này sử dụng lập chỉ mục một dựa trên.

Hãy thử trực tuyến!

Giải trình

3&u:%.1,.#\  Input: string S
         #\  Get the length of each prefix of S
             Forms the range [1, 2, ..., len(S)]
      1,.    Pair each with 1
3&u:         Get the ASCII value of each char in S
    %.       Matrix divide

JavaScript, 151 148 byte

s=>([a,b,c,d,e]=[].map.call(s,c=>c.charCodeAt()).reduce(([a,b,c,d,e],y,x)=>[a+1,b+x,c+x*x,d+y,e+x*y],[0,0,0,0,0]),[k=(e*a-b*d)/(c*a-b*b),(d-k*b)/a])

Dễ đọc hơn:

function f(s) {
  var [n, sx, sx2, sy, sxy] = [].map.call(s, c => c.charCodeAt(0))
    .reduce(([n, sx, sx2, sy, sxy], y, x) => [
      n + 1,
      sx + x,
      sx2 + x * x,
      sy + y,
      sxy + x * y
    ], [0, 0, 0, 0, 0]);
  var k = (sxy * n - sx * sy) / (sx2 * n - sx * sx);
  return [k, (sy - k * sx) / n];
}

$(() => $('#run').on('click', () => console.log(f($('#input').val()))));

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script>
<textarea id="input" style="width: 100%">meta.codegolf.stackexchange.com</textarea>
<button id="run">Run</button>

Javascript (ES6), 112 byte

s=>[m=(a=b=c=d=0,([...s].map((u,x)=>{a+=n=x,b+=y=u.charCodeAt(),c+=x*x,d+=x*y}),++n)*d-a*b)/(n*c-a*a),b/n-m*a/n]

F=s=>[m=(a=b=c=d=0,([...s].map((u,x)=>{a+=n=x,b+=y=u.charCodeAt(),c+=x*x,d+=x*y}),++n)*d-a*b)/(n*c-a*a),b/n-m*a/n]

const update = () => {
  console.clear();
  console.log(F(input.value));
};
input.oninput = update;
update();

#input {
  width: 100%;
  box-sizing: border-box;
}

<input id="input" type="text" value="meta.codegolf.stackexchange.com" length=99/>
<div id="output"></div>

Haskell, 154 142 byte

import Statistics.LinearRegression
import Data.Vector
g x=linearRegression(generate(Prelude.length x)i)$i.fromEnum<$>fromList x
i=fromIntegral

Nó là quá dài cho sở thích của tôi vì nhập khẩu và tên hàm dài, nhưng tốt. Tôi không thể nghĩ ra bất kỳ phương pháp chơi gôn nào còn lại, mặc dù tôi không phải là chuyên gia về lĩnh vực nhập khẩu golf.

Tước 12 byte bằng cách thay thế ordvà nhập Data.Charbởi fromEnum nhờ vào nimi.

Ngôn ngữ Macro SAS, 180 byte

Sử dụng lập chỉ mục dựa trên 1. Giải pháp trở nên khá dài dòng khi đầu ra chỉ là độ dốc và đánh chặn.

%macro t(a);data w;%do i=1 %to %length(&a);x=&i;y=%sysfunc(rank(%substr(&a,&i,1)));output;%end;run;proc reg outtest=m;model y=x/noprint;run;proc print data=m;var x intercept;%mend;

Clojure, 160 byte

Không tích hợp sẵn, sử dụng thuật toán lặp được mô tả tại bài viết Perceptron . Có thể không hội tụ vào các đầu vào khác, trong trường hợp đó làm giảm tốc độ học tập 2e-4và có thể tăng số lần lặp 1e5. Không chắc chắn nếu thuật toán không lặp sẽ được thực hiện ngắn hơn.

#(nth(iterate(fn[p](let[A apply e(for[x(range(count %))](-(int(get % x))(*(p 1)x)(p 0)))](mapv(fn[p e](+(* e 2e-4)p))p[(A + e)(A +(map *(range)e))])))[0 0])1e5)

Thí dụ:

(def f #( ... ))
(f "meta.codegolf.stackexchange.com")

[99.26612903225386 0.014516129032464659]

Maple, 65 byte

Statistics:-LinearFit(b*x+a,[$(1..length(s))],convert(s,bytes),x)

Sử dụng:

s := "meta.codegolf.stackexchange.com";
Statistics:-LinearFit(b*x+a,[$(1..length(s))],convert(s,bytes),x);

Trả về:

99.2516129032259+0.0145161290322573*x

Lưu ý: Điều này sử dụng lệnh Fit để khớp một đa thức có dạng a * x + b với dữ liệu. Các giá trị ASCII cho chuỗi được tìm thấy bằng cách chuyển đổi ing thành byte.