Bạn là một người đam mê lập trình trẻ sống với 2 người bạn thân nhất của bạn. Mỗi tuần, một trong số các bạn phải làm tất cả các công việc trong nhà và bạn quyết định xem đó là lượt nào bằng cách chọn một cây gậy. Người nào chọn cây gậy ngắn nhất sẽ thua và làm tất cả các công việc.

Vì tất cả các bạn là lập trình viên và thích tạo ra các câu đố, bạn đã sửa đổi "Chọn cây gậy ngắn nhất" thành một câu đố trên máy tính.

Dưới đây là các quy tắc của câu đố.

1. Bạn sẽ được cung cấp một ma trận 2D, trong đó mỗi cột đại diện cho một thanh.
2. Trong mỗi cột, 1 đại diện cho một phần của thanh và 0 là khoảng trống
3. Khi đi từ trên xuống dưới trong mỗi cột, ban đầu bạn có 0's và ngay sau khi bạn nhấn một 1, cây gậy đã bắt đầu và nghỉ ngơi của cột sẽ được lấp đầy với 1chỉ
4. Bạn có thể viết chương trình của bạn để chọn một cột. Kích thước của thanh trong cột đó xác định người chiến thắng / người thua cuộc. Kích thước của thanh == số 1s trong cột đó.
5. Tuy nhiên, chương trình đó chỉ có thể có độ phức tạp thời gian trường hợp xấu nhất tuyến tính.

Vì tất cả các bạn là lập trình viên, bạn sẽ biết liệu chương trình của người khác có đang giới hạn độ phức tạp thời gian hay không.

Công việc của bạn là:

• Viết chương trình hoặc hàm chấp nhận đầu vào ở định dạng 2D hoặc mảng chuỗi.
• Đầu vào có thể được lấy từ STDIN / prompt / console hoặc đối số chức năng.
• Nếu bạn đang đọc đầu vào từ STDIN / prompt thì bạn có thể giả sử rằng việc đọc đầu vào và chuyển đổi nó thành một mảng mất 0 thời gian (mặc dù mã để làm như vậy phải có trong câu trả lời của bạn)
• Xác định cột có thanh dài nhất trong đó.
• Đầu ra có thể là giá trị trả về của hàm hoặc tới STDOUT / console / alert.
• Chương trình / hàm phải có độ phức tạp thời gian trong trường hợp xấu nhất tuyến tính, O(m+n)trong đó mlà số lượng hàng và nsố cột.

Đầu vào có thể là một trong các định dạng sau:

Mảng 2D:

[ [0, 0, 0, 0],
  [1, 0, 0, 0],
  [1, 1, 0, 1],
  [1, 1, 1, 1] ]

Mảng của chuỗi:

[ "0000", "1000", "1101", "1111" ]

Đầu vào sẽ có các thuộc tính sau:

• Kích thước của mảng là không xác định, giả sử một hình chữ nhật có kích thước bất kỳ
• Trong bất kỳ cột nào, từ trên xuống, nếu bạn thấy 1, thì mọi thứ bên dưới sẽ là một
• Các cột trống (tức là 0 độ dài) được cho phép.

Đây là một môn đánh gôn để mã ngắn nhất sẽ thắng ! *

Vui lòng giải thích mã của bạn hoặc cung cấp phiên bản chưa được chỉnh sửa (để xác minh độ phức tạp thời gian) cùng với định dạng đầu vào nào trong hai định dạng bạn mong đợi.

CẬP NHẬT Độ phức tạp thời gian tuyến tính ở đây có nghĩa là O (n + m) trong đó n là kích thước cột và m là kích thước hàng. (Dành cho những người không rõ ràng)

CẬP NHẬT 2 Điều này chắc chắn có thể được thực hiện trong thời gian tuyến tính. Và nếu bạn đang đăng một câu trả lời, vui lòng trì hoãn việc đăng logic / thuật toán trong một vài ngày để chiến đấu công bằng :)

CẬP NHẬT 3 Tôi sẽ xem qua tất cả các câu trả lời trong vài giờ để xác thực độ phức tạp của thời gian và chương trình :)

GolfScript, 45 ký tự

:^,:y;0:x{^y(=x=2%y*{y(:y;x\}{x):x}if^0=,<}do

Lấy đầu vào dưới dạng một chuỗi các chuỗi, trả về chỉ số (dựa trên 0) của cột cao nhất. Nó chạy trong các lần lặp O ( hàng + cột ) và mỗi lần lặp sẽ mất thời gian cơ bản không đổi (ít nhất là giả sử số học thời gian không đổi). Các hoạt động mảng / chuỗi duy nhất được thực hiện trong vòng lặp là tra cứu phần tử ( =) và lấy độ dài của chuỗi ( ,), cả hai đều mất thời gian không đổi trong GolfScript.

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

Giải trình:

Giống như hầu hết các giải pháp ở đây, mã này hoạt động bằng cách bắt đầu ở góc dưới bên trái của ma trận, đi lên hoặc phải tùy thuộc vào việc phần tử hiện tại của ma trận là 1 hay 0 và theo dõi cột nơi nó di chuyển lên cuối cùng .

Khi bắt đầu chương trình, tôi gán mảng đầu vào cho biến ^, độ dài của nó (tức là số lượng hàng) yvà 0 đến x. Giá trị 0 cũng được để lại trên ngăn xếp; trong vòng lặp sau, nó sẽ được thay thế bằng chỉ số của cột cao nhất.

Trong vòng lặp chính, ^y(=x=trích xuất xký tự -th của y-1hàng -th trong ^. Điều này thực sự trả về mã ASCII của ký tự, vì vậy 2%cần phải bỏ tất cả trừ bit cuối cùng. Trong trường hợp đặc biệt, nếu ybằng 0 (có thể xảy ra nếu cột cao nhất được tìm thấy cho đến tận hàng trên cùng), bit được tìm kiếm sẽ thực sự đến từ hàng cuối cùng trong ma trận (chỉ số -1), nhưng điều sau đây y*buộc nó về 0, do đó tạo ra một hàng tất cả các số ảo ở đầu ma trận một cách hiệu quả.

Sau ifđó, sau đó sẽ thực thi một trong hai khối mã trước nó, tùy thuộc vào việc bit tra cứu là khác không (đúng) hay không (sai). Nếu khác không, yđược giảm bởi một và giá trị hiện tại xthay thế chỉ số cột cao nhất trên ngăn xếp (với giá trị cũ tạm thời để lại trên đầu trang). Nếu bằng 0, xchỉ đơn giản là tăng thêm một (và tạm thời để lại trên ngăn xếp, trên đầu chỉ số cột cao nhất).

Cuối cùng, ^0=trích xuất hàng đầu tiên của ma trận, ,trả về độ dài của nó và <so sánh nó với chỉ số cột tạm thời để lại trên ngăn xếp (sẽ bằng xnếu nó chỉ tăng lên) Nếu chỉ số nhỏ hơn độ dài của hàng, vòng lặp lặp đi lặp lại.

Thi thiên Dựa trên thử nghiệm của tôi, có thể rút ngắn chương trình này bằng một ký tự bằng cách thay thế kiểm tra độ dài chuỗi ,<ở cuối vòng lặp bằng cách >cắt chuỗi ở chỉ mục đã cho và trả về phần cuối (sẽ trống và do đó sai, ở cuối vòng lặp). Tuy nhiên, trong khi cắt một chuỗi như thế dường như được triển khai như một hoạt động liên tục trong GolfScript (hay nói đúng hơn là trong Ruby, mà GolfScript chạy trên đầu trang), tôi không tìm thấy bất kỳ tài liệu chính thức nào nói như vậy. Để an toàn, tôi đã chọn tính năng dài hơn một chút, nhưng chắc chắn là phiên bản O (1) ở trên.

Ruby, 83 75 68 66 63 byte

f=->m{m[b=c=i=0].map{(c=i;b-=1)while(r=m[b-2])&&r[i]>0;i+=1};c}

Xác định hàm flấy dạng mảng 2D làm đầu vào.

Tôi đang bắt đầu ở phía dưới bên trái, theo dõi chiều dài thanh tối đa (thực tế, trừ đi) và cột tương ứng. Trong mỗi cột, nếu vẫn còn 1s trên độ dài thanh tối đa trước đó, tôi đi lên thanh đến cuối và nhớ chiều dài và cột tối đa mới. Điều đó có nghĩa là tôi đang lặp lại một lần dọc theo các cột và nhiều nhất là một lần dọc theo các hàng (cụ thể là tôi lặp lại theo chiều dài thanh tối đa), chính xác là như vậy O(m+n).

Trăn 2 - 71, 69, 73, 75 81

j=i=-1
M=input()
for m in M[0]:
 j+=1
 while-i<len(M)and M[i][j]:i-=1;J=j
print J

C, 64 byte

Chỉnh sửa: Tôi đã học được rằng câu hỏi yêu cầu vị trí của cột dài nhất chứ không phải chiều dài của nó.

Dòng đầu tiên là mã đánh gôn và phần còn lại là lời gọi mẫu.

g(int m,int n,int**a,int*r){for(*r=n;n*m;a[m][n]?m--,*r=n:--n);}

/* usage:
    m = number of rows
    n = number of columns
    a = 1-based 2D array such that a[i][j] gives the value at the ith row and jth column
    r = address of return value 
    Returns (to r) the 1-indexed location of a column with the longest length, or 0 if n=0
    */

int main()
{
    int flat[4*4] = {1, 0, 0, 0,
                     1, 0, 0, 1,
                     1, 1, 0, 1,
                     1, 1, 1, 1};
    int*twoD[4] = {flat-1,flat+3,flat+7,flat+11};
    int ret;
    g(4,4,twoD-1,&ret);
    printf("%d", ret);
    return 0;
}

// old function which determines longest length (65 bytes)
f(int m,int n,int**a,int*r){for(*r=m;n*m;a[m][n]?m--:--n);*r-=m;}

C #: 236 Chars

int p(int[,] a){int y=0,s=0,i=0,x;for(;++y<=a.GetUpperBound(0);)for(x=i;x<=a.GetUpperBound(1);){if(a[y,x++]==0)break;s=y;i++;}return s;}

vô dụng:

int p(int[,] a)
{
    int selectedRow=0;
    int maxLength=0;
    for(var y = 0; y<=a.GetUpperBound(0); y++)
        for(var x=maxLength; x<=a.GetUpperBound(1); x++)
        {
            if(a[y,x++]==0)
                break;
            selectedRow=y;
            maxLength++;
        }
    return selectedRow;
}

PHP 5,4 - 108 byte

(113 nếu bạn bao gồm <?php)

Định dạng đầu vào: Mảng sẽ được đọc dưới dạng chuỗi JSON.

php longest_stick.php "[[0, 0, 0, 0],[1, 0, 0, 0],[1, 1, 0, 1],[1, 1, 1, 1]]"

Khoảng trắng được thêm vào để dễ đọc - tất cả các dòng mới và khoảng trắng hàng đầu có thể được xóa.

<?php
$t=count($s=json_decode($argv[1]))-1;
foreach($s[0] as $k=>$_)
    while($s[$t][$k]) {
        $t--;
        $l = $k;
    }
echo $l?:0;

Phiên bản rút gọn:

<?php $t=count($s=json_decode($argv[1]))-1;foreach($s[0] as $k=>$_)while($s[$t][$k]){$t--;$l=$k;}echo $l?:0;

Loại ăn cắp thuật toán từ Martin ở đây, nhưng thật tuyệt khi chơi xung quanh với các ngôn ngữ không thường thấy ở đây XD

Rắn hổ mang - 98

def f(a)
    s,x,y=0,0,a.count-1
    while y+1and x<a[0].count
        while a[y][x],y,s=y-1,x
        x+=1
    print s

C ++ :: 78

Không giống như các giải pháp C khác, đây là toàn bộ chương trình. (không cần gọi, không cần cho hàm biết kích thước của mảng). Thật không may, điều này có nghĩa là nó dài hơn mainphải được sử dụng thay vì tên hàm ký tự đơn, tôi phải diễn giải đầu vào và sau đó đưa ra câu trả lời, trong đó giải pháp khác xử lý "nơi khác". Cũng là mã golf đầu tiên của tôi.
được biên dịch với g++ file.cpp -include iostream, chạy với ./a 000 010 110 111(ví dụ) == mảng chuỗi (tôi tin rằng điều này được cho phép trong thông số câu hỏi)

int c;main(int r,char**v){for(r--;r*v[r][c];v[r][c]-48?std::cout<<c,r--:++c);}

Phiên bản trên cho ra kết quả tốt nhất hiện tại cho đến nay trên mỗi lần lặp. Chữ số đầu ra cuối cùng là câu trả lời. Chuyển đổi từ xử lý từ dưới cùng bên trái thay vì dưới cùng bên phải và 0lập chỉ mục đã giảm giải pháp này 10 ký tự (!).
chuyển sang c ++ giảm việc gửi thêm một ký tự vì std::cout<<nó ngắn hơn putchar(-48)và nó cũng hỗ trợ rõ ràng hơn 9 thanh với đầu ra phù hợp (mặc dù có thể khó phân biệt từng đầu ra hơn)
Xóa trường trả lời và xuất ra một cách khác 6 ký tự. Bây giờ nó chỉ xuất ra hiện tại tốt nhất khi nó di chuyển lên mà cắt ra một số đầu ra ít nhất.
Toàn bộ tệp bây giờ chỉ có kích thước 78 byte - tiếp cận giải pháp chỉ có chức năng mà giải pháp khácCtrình sử dụng. (với rất nhiều mã bổ sung để hỗ trợ chức năng nói).

Như mô tả dưới đây đã hết hạn:

clà toàn cầu nên được khởi tạo với 0
rsố lượng đầu vào (hàng) +1 (tên chương trình)
vlà mảng chuỗi v[0]không hợp lệ (tên chương trình)
Vì nó là 0 được lập chỉ mục, rnằm ngoài giới hạn, vì vậy giảm dần.
Trong khi r!=0(chỉ vào chuỗi hợp lệ) và ký tự ctrong chuỗi không phải là dấu kết thúc null '\0'
nếu ký tự không '0'
đi lên một hàng ( r) và xuất cột ( c)
khác đi đến cột tiếp theo ( c)

xong

Tôi thậm chí có thể chơi golf này hơn nữa?

Mã Ungolfed (có đầu ra thêm):

#include <stdio.h>
#include <string.h>

int main(int argc, char* argv[])
{
  int rows = argc-1;
  int cols = strlen(argv[1]);
  int ans;

  printf("rows: %d, cols: %d\n",rows, cols);

  while((rows)&&cols)
  {
    if (argv[rows][cols-1]-'0')
    {
      printf("stick @%d,%d\n",cols,rows);
      ans = cols;
      rows--;
    }
    else
    {
      printf("no stick @%d,%d\n",cols,rows);
      cols--;
    }
  }
  printf("%d",ans);
}

Nó sử dụng độ dài của chuỗi để tìm ra số lượng cột và argc để tìm số lượng hàng. Bắt đầu ở góc dưới bên phải, nó tuân theo các quy tắc đơn giản sau: Nếu ô là một thanh, sau đó di chuyển lên, đặt câu trả lời cho cột hiện tại. Nếu ô không phải là một que, sau đó di chuyển sang trái. O (n + m): vì nó chỉ di chuyển lên và sang trái, nó chỉ có thể có số lần đọc tối đa n + m. Nó thoát sớm nếu nó rơi khỏi đỉnh hoặc bên trái của mảng.

OCaml - 144 ký tự

let s a=Array.(let rec f i j m=if i=0then m else if a.(i).(j)=0then if j=length a.(i)-1then m else f i(j+1)m else f(i-1)j j in f(length a-1)0 0)

Lấy int array arrayđầu vào làm đầu vào và bắt đầu từ bên dưới bên trái, di chuyển lên hoặc sang phải nếu nhìn thấy a 1hoặc a 0. Đếm cột bắt đầu từ 0.

Sử dụng

 s [| [| 0; 0; 0; 0 |]; [| 0; 0; 1; 0|]; [| 1; 0; 1; 0 |]; [| 1; 1; 1; 0 |]; [| 1; 1; 1; 1 |] |];;
 - : int = 2

Ung dung

let s a = Array.(
  let rec f i j m = (* m is the longest stick seen so far *)
    if i=0 then m (* A column is full: this is the longest possible stick and j=m anyway *)
    else if a.(i).(j)=0 then (* current column is shorter than a previously seen stick *)
      if j=length a.(i)-1 then m (* we have examined all columns, just return m *)
      else f i(j+1) m (* start examining next column *)
    else f (i-1) j j (* current column is longer than all the ones previously seen. Check how long the stick is *)
  in
  f (length a-1) 0 0)

T-SQL - 71 64

Lấy bảng A làm đầu vào

SELECT IDENTITY(INT, 1, 1) R, A INTO A
FROM (VALUES
 ('0000')
,('1000')
,('1101')
,('1111')
) AS A(A)

Và truy vấn là

SELECT TOP(1)CHARINDEX('1',A)FROM A WHERE A LIKE'%1%' ORDER BY R

SQLFiddle

Điều này trả về hàng đầu tiên từ bảng a được sắp xếp theo r trong đó có chuỗi 1 trong chuỗi a.

TOP(1) hạn chế kết quả cho hàng đầu tiên trả về.

CHARINDEX('1',A) trả về vị trí của 1 đầu tiên trong chuỗi hoặc 0 nếu không tìm thấy.

WHERE A LIKE'%1%' bộ lọc cho các hàng trong đó A chứa 1

ORDER BY R đảm bảo bảng được đọc từ trên xuống

Delphi 122 ký tự

Thở dài ... đó là một ngôn ngữ đồ sộ.

Cập nhật: phải thêm 6 ký tự trong việc thay đổi hàm trả về từ I thành số nguyên. Hàm vẫn được biên dịch khi chương trình thử nghiệm có "loại I = số nguyên;" tuyên bố còn lại từ một phiên bản trước đó của chương trình.

function S(A:array of string):integer;var n,c:integer;begin n:=0; repeat c:=Pos('1',A[n]);inc(n) until c>0; result:=c;end;

sơ đồ - 236 ký tự

Thậm chí dài hơn phiên bản delphi ... có lẽ có một cách để làm điều này hiệu quả hơn nhiều với lược đồ. Và thậm chí tệ hơn - tôi chỉ nhận thấy đó là thứ tự m * n.

(define (s l) (cond ((eq? (cdr l) '()) (car l)) (else (map + (car l) (s (cdr l)))))) (define (u l) (define (t n p q l) (cond ((eq? l '()) p) ((< n (car l)) (t (car l) q (+ 1 q) (cdr l))) (else (t n p (+ 1 q) (cdr l))))) (t 0 0 1 (s l)))

l là danh sách có dạng '((0 0 0 0) (1 0 0 0) (1 1 0 1) (1 1 1 1)). Tôi nghĩ rằng đó là một đại diện hợp lý của đầu vào mảng 2D cho sơ đồ.

(sl) tính tổng các phần tử thứ n của mỗi danh sách phụ của danh sách danh sách các nuimbers, vì vậy (s '((0 0 0 0) (1 0 0 0) (1 1 0 1) (1 1 1 1))) sẽ trở lại (3 2 1 2).

(ul) trả về 'chỉ mục' của mục nhập lớn nhất của danh sách các số (sử dụng hàm trợ giúp t), vì vậy (u '(3 2 1 2)) sẽ trả về 1 (là phần tử lớn nhất' 3 trong danh sách ' (3 2 1 2) ở vị trí 1).

Vợt 70

Chơi gôn

(define(h m)(for/last([r m]#:final(memv 1 r))(length(takef r even?))))

Giả sử đầu vào là một mảng hai chiều, trong Vợt sẽ là một danh sách các danh sách:

(define m 
  '((0 0 0 0)
    (1 0 0 0)
    (1 1 0 1)
    (1 1 1 1)))

Ung dung:

(define (h m)
  ;; step through rows, stopping at the first that contains a 1
  (for/last ([r m] #:final (memv 1 r)) 
    (length (takef r even?)))) ; pop off the leading zeroes to get the column index

Trả về chỉ số cột với thanh dài nhất.

JavaScript, ES6, 76 ký tự

W=a=>(j=>{for(k=i=a.length-1;~i&~j;)a[i][j]?(k=j,i--):j--})(a[0].length-1)|k

Có mảng đầu vào mảng.

JavaScript ES6, 65 byte

Có cả hai định dạng đầu vào

f=(a,t)=>a.reduceRight((p,c)=>t+1?t:(x=c.indexOf(1,p))+1?x:t=p,0)

Giải thích:

Lặp đi lặp lại từ dưới lên trên. Sử dụng String.prototype.indexOf()hoặc Array.prototype.indexOf()tùy thuộc vào đầu vào trên mỗi giá trị. Tìm chỉ mục đầu tiên của mỗi hàng có 1 từ phần bù trước, nếu không tìm thấy thì nó đặt tbiến thành phần bù cuối cùng và không thực hiện indexOfcác cuộc gọi nữa .