Xem các câu hỏi mới về Toán học bằng cách sử dụng Mathematica và StackOverflow API

Question

Trừ khi Mr.Wizard đang đi nghỉ, rất khó để đánh bại hiện tượng này mà dường như có năng khiếu với sự toàn năng và toàn trí. Làm thế nào chúng ta có thể vượt qua anh ta bằng cách sử dụng Mathematica và API StackOverflow?

Answer 1

Đây là biến thể về giải pháp của Sjoerd.

Sự khác biệt chính là sử dụng ô được gắn đế thay vì hộp thoại bật lên. Ô này có liên kết đến bài đăng mới, cũng như nút sẽ xóa ô được gắn đế với trạng thái trước đó.

Sự khác biệt khác là sử dụng ID câu hỏi thay vì tiêu đề để xác định bài đăng mới. Tôi biết rằng tiêu đề được chỉnh sửa đôi khi, do đó, kích hoạt này như là một bài mới trong trường hợp đó.

storedTitle = ""; 
storedID = 0; 
mySOWatchTask = 
    CreateScheduledTask[{lastTitle, 
    lastID} = {"title", 
     "question_id"} /. ("questions" /. 
     Import["http://api.stackoverflow.com/1.1/questions?key=  \ 
     QEpjCjsXYE6s_kZEkFr4Lw&page=1&pagesize=1&sort=creation&\ 
tagged=    mathematica", "JSON"])[[1]]; 
    If[lastID != storedID, 
    storedTitle = lastTitle; 
    storedID = lastID; 
    SetOptions[$FrontEndSession, 
    DockedCells -> 
     Cell[BoxData[ 
     ToBoxes[Style[ 
      With[{dock = Options[$FrontEndSession, DockedCells]}, 
      Grid[{{Button[Style["\[CircleTimes]", 16], 
       SetOptions[$FrontEndSession, dock], 
       Appearance -> None], "New StackOverflow question: ", 
       Hyperlink[lastTitle, 
       "http://stackoverflow.com/questions/" <> 
       ToString[lastID]]}}, 
      Alignment -> {{Left, Left, Left}}, 
      ItemSize -> {{2, 14, Scaled[0.7]}}]], 
      FontFamily -> "Times"]]], "DockedCell", 
     Background -> Orange]]; EmitSound[Sound[SoundNote[]]]];, 60]; 

Answer 2

Khá dễ thực sự. Tất cả những gì bạn cần là như sau.

Xác định một nhiệm vụ theo dõi:

storedTitle = ""; 

mySOWatchTask = 
    CreateScheduledTask[ 
    { 
    lastTitle = 
    "title" /. ("questions" /. 
     Import["http://api.stackoverflow.com/1.1/questions?key=\ 
       QEpjCjsXYE6s_kZEkFr4Lw&page=1&pagesize=1&sort=creation&tagged=\ 
       mathematica", "JSON"])[[1]]; 
    If[lastTitle != storedTitle, 
     storedTitle = lastTitle; 
     EmitSound[Sound[SoundNote[]]]; 
     MessageDialog["New question: " <> lastTitle] 
    ]; 
    }, 
    60 
    ]; 

Và để bắt đầu này:

StartScheduledTask[mySOWatchTask]; 

Dừng lại với:

StopScheduledTask[mySOWatchTask]; 

Hãy nhìn những gì đang chạy:

ScheduledTasks[] // Shallow 

Hủy bỏ nhiệm vụ:

RemoveScheduledTask[mySOWatchTask]; 

hoặc tất cả các nhiệm vụ:

RemoveScheduledTask[ScheduledTasks[]]; 

các cuộc thăm dò này SO mỗi phút (the minimum that is not seen as abusive), và hiển thị một hộp thoại và đóng một âm thanh bất cứ khi nào một câu hỏi Mathematica mới đến .

Vẻ đẹp của việc này là: nó sử dụng Mathematica 8, và tất cả chúng ta đều biết Mr.Wizard không có đó (chưa) ;-)

Lưu ý rằng API SO đang được lưu trữ rất nhiều, do đó, phản ứng có thể không đến trực tiếp. Tôi cũng chưa thử nghiệm rộng rãi.

EDIT
Xin lưu ý rằng chìa khóa (app-id) được sử dụng trên được dự định sẽ được sử dụng bởi chỉ ứng dụng Mathematica nhỏ này. Nếu bạn cần một ứng dụng khác nhau, bạn có thể tự mình làm một thủ tục nhanh chóng và không đau đớn here. Tôi mất chưa đầy một phút.