BCPENNY spoj PTIT – Penny Game
Nguồn đề bài: http://www.spoj.com/PTIT/problems/BCPENNY/ 1. Đề bài BCPENNY spoj PTIT Penny Game là một trò chơi đơn giản cho hai người chơi. Trò chơi này yêu cầu mỗi người chơi chọn một dãy duy nhất ba mặt đồng xu ví dụ như HEADS TAILS HEADS (HTH). Các đồng xu sẽ được tung liên ...
Nguồn đề bài: http://www.spoj.com/PTIT/problems/BCPENNY/
1. Đề bài BCPENNY spoj PTIT
Penny Game là một trò chơi đơn giản cho hai người chơi. Trò chơi này yêu cầu mỗi người chơi chọn một dãy duy nhất ba mặt đồng xu ví dụ như HEADS TAILS HEADS (HTH). Các đồng xu sẽ được tung liên tiếp cho cho đến khi xuất hiện một trong hai dãy đã được chọn lúc đầu. Người chơi nào chọn được dãy xuất hiện đầu tiên sẽ là người thắng cuộc.
Bạn hãy viết một chương trình đọc một chuỗi 40 giá trị tung đồng xu liên tiếp và xác định mỗi một chuỗi ba mặt đồng xu xuất hiện bao nhiêu lần. Hiển nhiên, ta sẽ có 8 chuỗi 3 mặt đồng xu lần lượt là: TTT, TTH, THT, THH, HTT, HTH, HHT và HHH. Các chuỗi này có thể xếp chồng lên nhau. Ví dụ ta có 40 xu liên tiếp ở mặt HEADS thì sẽ có 38 chuỗi HHH xuất hiện
Dữ liệu
Dòng đầu tiên ghi số 1 ≤ P ≤ 1000 là tổng số bộ test. Mỗi bộ test gồm 2 dòng:
- Dòng đầu tiên chứa số N là thứ tự bộ test.
- Dòng thứ hai là dãy 40 ký tự mô tả chuỗi giá trị tung đồng xu trong đó chỉ gồm hai ký tự là H và T. Không có bất cứ dấu cách nào trong các dòng dữ liệu vào.
Kết quả
Ghi ra màn hình một dòng cho mỗi bộ test trong số đầu tiên là thứ tự bộ test. Tiếp theo là 8 số cho biết số lần xuất hiện của mỗi chuỗi 3 đồng xu theo thứ tự ở trên. Mỗi số viết cách nhau một dấu cách. Sẽ có 9 dấu cách trong mỗi dòng kết quả.
Example
Input:
4
1
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
2
TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT
3
HHTTTHHTTTHTHHTHHTTHTTTHHHTHTTHTTHTTTHTH
4
HTHTHHHTHHHTHTHHHHTTTHTTTTTHHTTTTHTHHHHT
Output:
1 0 0 0 0 0 0 0 38
2 38 0 0 0 0 0 0 0
3 4 7 6 4 7 4 5 1
4 6 3 4 5 3 6 5 6
2. Code tham khảo BCPENNY spoj PTIT
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 | const fi='; type data=longint; var f:text; A:array[1..8] of data; test,i,tt:data; S:string; procedure add(s:string); begin case s of 'TTT': inc(a[1]); 'TTH': inc(a[2]); 'THT': inc(a[3]); 'THH': inc(a[4]); 'HTT': inc(a[5]); 'HTH': inc(a[6]); 'HHT': inc(a[7]); 'HHH': inc(a[8]); end; end; procedure xuli; var i,j:data; begin for i:=1 to 38 do add(s[i]+s[i+1]+s[i+2]); for i:=1 to 8 do write(a[i],' '); end; begin assign(f,fi); reset(f); readln(f,test); for i:=1 to test do begin readln(f,tt); readln(f,s); fillchar(a,sizeof(a),0); write(tt,' '); xuli; writeln; end; close(f); end. |
