 |
ขี้โกงด้วยการใช้ Mathematica
(* แสดง list ของศุกร์ 13 ตั้งแต่ปีคศ 1900 ถึง 2012*)
x = Reap[Do[If[#[[1]] == "Friday" && #[[2]] == "13", Sow[#]] &@
StringSplit@DateString[i,"DayName", " ", "Day", " ", "Month", " ", "Year"}], {i, 1, 3543264000, 86400}]][[2, 1]]
...
(*เช็คว่าในแต่ละปีจะมีวันศุกร์ที่ 13 อย่างน้อย 1 ครั้ง (ตั้งแต่ปีคศ 1900 ถึง 2012) *)
Union@ToExpression@x[[All, 4]] == Range[1900, 2012]
True
ดังนั้นที่ว่าในแต่ละปีจะมีวันศุกร์ที่ 13 อย่างน้อย 1 ครั้งนั้นจริงครับ :)
| จากคุณ |
:
Santi
|
| เขียนเมื่อ |
:
วันเนา 55 16:50:47
A:58.11.95.235 X: TicketID:044871
|
|
|
|
|
จะแสดงการพิสูจน์หรือยกตัวอย่างค้านข้อความต่อไปนี้ได้ยังไงครับ???
ในแต่ละปีจะมีวันศุกร์ที่ 13 อย่างน้อย 1 ครั้ง 
จะพิสูจน์ทำไม วันนี้ก็ศุกร์ที่ 13 นี่ครับ
