何有之鄉, 2.10

Posted on December 14, 2025 by rpflee

Where are you? | Utopia 2.10

選擇戀愛對象的原則，並不是找「理想伴侶」，而是找厭惡得來，仍然可以遷就到的人。反過來說，必須排除那些，「不可能遷就到」的可能對象。可以遷就到的，就是缺點；想遷就也遷就不到的，就為之人格問題。

不可能遷就到，而為了保命，必須立刻超光速逃離，或者𣊬間轉移的例子有：

……

十、不懂基礎語文。

即是同一句說話，重複很多次，也未必明白，即使該句說話，沒有任何常識以外的成份。

十一、不懂基礎數學。

例如，有人會以為：「0.12 大於 0.8，因為 12 大於 8。」

十二、記憶力比正常人差。

那將會是吵架之源，且源源不絕。

— Me@2025-12-14 11:11:14 AM

馬和小孩, 2

Posted on June 28, 2025 by rpflee

這段改編自 2021 年 12 月 17 日的對話。

人的內置系統，即是先天而言，在愛情上是從一而終的。或者說，任何高等生物，都應該是那樣。

覺得「有外遇」沒有問題的人，是假設了雖然自己可以有外遇，但是太太卻不可以。

如果遊戲規則是，你有多少個外遇，太太亦會有多少個的話，大概沒有人會願意。

比喻說，如果有一個城市甲，政府考慮「應否把偷竊搶刧合法化」時，只給市民兩個選項：

要麼全民也可以偷搶，要麼全民也不可以。

那樣，大部人也會寧願，全民也不可以。

即使法津容許我，取他人之物，我也不可能持有，因為，他人也可以任意，偷搶我的東西。

— Me@2025-06-25 03:44:26 PM

何有之鄉, 2.9

Posted on May 27, 2025 by rpflee

Where are you? 4 | Utopia 2.9

不可能遷就到，而為了保命，必須立刻超光速逃離，或者𣊬間轉移的例子有：

……

八、自我中心：

不會為他人著想，即不會從他人立場思考問題。

九、他我中心：

不會為自己考慮，即不懂維護自身權利。

那應該怎樣呢？

自己的世界，以自己為中心。

他人的世界，則以他人為中心。

每人也要為自己人生負責，不可推卸他人。

可以互相協助，不可互相推責。

— Me@2025-05-27 07:44:33 AM

馬和小孩

Posted on March 5, 2025 by rpflee

這段改編自 2021 年 12 月 17 日的對話。

人的內置系統，即是先天而言，在愛情上是從一而終的。或者說，任何高等生物，都應該是那樣。

我有這個信念的原因是，看過一些例子：

一：

在澳洲大火中，一隻馬衝入火場，救牠的「太太」和兒子。

二：

一位父親戲弄四歲兒子，假扮和外來女子通電話。兒子相當氣憤，要告訴媽媽。

即使父親宣稱會買玩具給他，他也不肯隱瞞。

— Me@2025-03-04 07:26:55 PM

Where are you? 3

Posted on February 10, 2025 by rpflee

Utopia | 何有之鄉, 2.5

不可能遷就到，而為了保命，必須立刻超光速逃離，或者𣊬間轉移的例子有：

……

六、浪費：

買東西之目的在於：用途、娛樂或收藏。

但是有些人，三樣也不是，只享受購買當刻的快感。

七、吝嗇：

賺錢之目的在於：現在使用或將來使用。

但是有些人，永久不使用。

題外話：

饋贈他人算不算「使用」呢？

不太算。盡量少做。

小恩養貴人　大恩養仇人
幫難不幫懶　救急不救窮

試想想，不是他自己賺來的錢，他還會珍惜嗎？

— Me@2025-02-10 12:08:47 PM

Euler problem 26.1

Posted on January 20, 2025 by rpflee

(defun recurring-cycle (d)
  "Calculate the length of the recurring cycle for 1/d."
  (labels ((remainders (d r rs)
             (if (eql r 0)
                 0               
                 (let ((s (mod r d)))
                   (if (member s rs)
                       (1+ (position s rs))
                       (remainders d (* 10 s) (cons s rs)))))))
    (remainders d 1 nil)))

(defun p26 ()
  "Find the number below 1000 with the longest recurring cycle in its decimal representation."
  (let* ((results (loop :for n :from 1 :to 999 
                        collect (cons n (recurring-cycle n))))
         (max-pair (reduce #'(lambda (a b)
                               (if (> (cdr a) (cdr b))
                                   a
                                   b))
                           results)))
    (car max-pair)))

; SLIME 2.28
CL-USER> (p26)
983
CL-USER>

— Me@2025-01-20 03:57:23 PM

真話騙子 2.2

Posted on January 15, 2025 by rpflee

這段改編自 2021 年 12 月 17 日的對話。

……

現在集中討論第一點：

即使是所謂的「善意」的假話或隱瞞，也應盡量避免講，因為結果為何，不是你或者任何人，可以控制到。

審判過程中翁靜晶丈夫劉家良在書面口供表示，兩夫婦曾因翁靜晶與林競業的緋聞陷入離婚邊緣，而且翁靜晶為了避免事情鬧大，阻延報警求救最少二十分鐘。靜晶則供稱當日劉家良突然到訪寓所，當時在翁寓所內的林競業為避免遭到劉誤會他與翁偷情，主動爬出窗外，卻失足飛墮平台。

— 維基百科

不必要的隱瞞，後果可以那麼嚴重。

那個處境的正確做法是：

1. 其實應該在事先，就避免那個情境的發生——不是情侶的異性，就不要獨處。瓜田李下也。

2. 如果是必須，例如工作需要的話，二人也應該各自，事先通知自己的另一半。

3. 如果不幸地，沒有跟隨這兩個要點，導致遇到例子中情形的話，就要如實反映。講了實話後，別人信不信，並不是重點。

即使伴侶不信任，而導致離婚，也已是兩害取其輕。

— Me@2024-12-18 10:56:12 AM

Where are you? 2.7

Posted on January 7, 2025 by rpflee

Utopia | 何有之鄉, 2.7

不可能遷就到，而為了保命，必須立刻超光速逃離，或者𣊬間轉移的例子有：

……

五、不可信：

……

大漏洞是，要永久不被發現，你的心神就要，永久經營那些大話，心情永久不能放鬆。

記住，維持誠信有如保持健康，主要是為了自己而做的；他人知不知道，沒有關係。

以下是例外情形，可能有必要講假話。

1. 有時，講真話會危害性命，你就嘗試不答話。仍然不行的話，為了保護自己或他人的人身安全，唯有說假話。

2. 有些近似謊言，會立刻或極速自我實現，就叫「自證預言」。如果對人對己極為有利，「自證預言」可以說。

例如，如果有位正常智力的學生問你，他夠不夠聰明，應付公開考試。只要你大力宣稱他夠聰明，而他又相信的話，他就自然會有心機，用心溫習。他在公開試奪取佳績的機會，就會大大提升，應驗了你「他夠聰明」的宣稱。

留意，如果自我實現不是立刻或極速，那就有違道義，不可算是「自證預言」。

其他情形下，謊言假話，幾乎一概不可接受。

……

— Me@2024-09-05 03:33:08 PM

真話騙子 2

Posted on December 20, 2024 by rpflee

這段改編自 2021 年 12 月 17 日的對話。

有誠信的人，會盡量不講假話；但是要留意，「誠信」並不只是，「講不講真話」的問題，因為，如果有心傷害人，只講真話也可以做到。

大方向是：

1. 不要在毋須講假話時，講假話。

2. 不要公開一些，毋須公開的真話。這就是「個人私隱」的意思。只有公職事務，你才有責任公開。

這兩點可統一為：

0. 不要在毋須說話時說話。

現在集中討論第一點：

即使是所謂的「善意」假話或隱瞞，也應盡量避免，因為結果為何，不是你，或者任何人，可以控制到。

……

— Me@2024-12-20 12:01:28 PM

Euler problem 25.1.2

Posted on December 16, 2024 by rpflee

(defun matrix-multiply (a b)
  (destructuring-bind ((a11 a12) (a21 a22)) a
    (destructuring-bind ((b11 b12) (b21 b22)) b
      (list (list (+ (* a11 b11) (* a12 b21))
                  (+ (* a11 b12) (* a12 b22)))
            (list (+ (* a21 b11) (* a22 b21))
                  (+ (* a21 b12) (* a22 b22)))))))

(defun matrix-power (m n)
  (declare (type fixnum n))
  (cond ((= n 1) m)
        (t (let* ((half (matrix-power m (floor n 2)))
                  (squared (matrix-multiply half half)))
             (if (oddp n)
                 (matrix-multiply squared m)
                 squared)))))

(defun digits-in-number (n)
  "Count the number of digits in a number."
  (length (write-to-string n)))

(defun fib-nth (n)
  (declare (type fixnum n))
  (if (<= n 2)
      1
      (destructuring-bind ((result b)
                           (c d))
          (matrix-power '((1 1) (1 0)) (- n 1))
        (declare (ignore b c d))
        result)))

(defun fib-upper-bound (digit-count)
  "Calculate an upper bound for the index where Fibonacci has at least digit-count digits."
  (let* ((phi (float 1.618033988749895))
         (log-phi (log phi 10))
         (log-5 (log 5 10)))
    (ceiling (/ (+ digit-count (- 1 (/ log-5 2))) log-phi))))

(defun binary-search-fib-index (digit-count)
  "Find the index of the first Fibonacci number with the specified number of digits using binary search."
  (labels ((binary-search (left right)
             (when (<= left right)
               (let* ((mid (+ left (floor
                                    (/ (- right left) 2))))
                      (mid-fib (fib-nth mid))
                      (mid-digits (digits-in-number mid-fib)))
                 (cond ((= mid-digits digit-count) 
                        (let* ((prev-fib (fib-nth (1- mid)))
                               (prev-digits (digits-in-number
                                             prev-fib)))
                          (if (< prev-digits digit-count)
                              mid
                              (binary-search left (1- mid)))))
                       ((< mid-digits digit-count) 
                        (binary-search (1+ mid) right))
                       (t 
                        (binary-search left (1- mid))))))))
    (let* ((upper-bound (fib-upper-bound digit-count))
           (result (binary-search 1 upper-bound)))
      (or result (cons :upper-bound upper-bound)))))

; SLIME 2.28
CL-USER> (time (binary-search-fib-index 1000))
Evaluation took:
  0.001 seconds of real time
  
4782
CL-USER>

— Me@2024-12-10 07:23:47 PM

Where are you? 2.6

Posted on December 12, 2024 by rpflee

Utopia | 何有之鄉, 2.6

不可能遷就到，而為了保命，必須立刻超光速逃離，或者𣊬間轉移的例子有：

……

五、不可信：

……

這類人不可相處之的主要原因是，他們認為，謊言只要不被發現，就沒有問題。他們覺得，既然受騙者不知道，就不會不開心，不會受傷害。所以，即使騙了他人，那也不算不道德。

這種講法，有兩漏洞。

小漏洞是，你怎麼肯定，你的謊言不會爆煲？

大漏洞是，要永久不被發現，你的心神就要，永久經營那些大話，心情永久不能放鬆。

記住，維持誠信有如保持健康，主要是為了自己而做的；他人知不知道，沒有關係。

以下是例外情形，可能有必要講假話。

……

其他情形下，謊言假話，幾乎一概不可接受。

……

— Me@2024-09-05 03:33:08 PM

反情感勒索, 3

Posted on December 6, 2024 by rpflee

「報恩」反邏輯。要「報」就不叫做「恩」。需要報的，必須報的，就不是「恩」，是「交易」。

有沒有往來，在於感情或喜歡，不在於恩。有情的，沒有恩也會對她好。

相反，傷害你的，即使是所謂的「恩人」，你也必須激烈反抗。

— Me@2024-11-28 10:23:47 AM

Where are you? 2.5

Posted on November 14, 2024 by rpflee

Utopia | 何有之鄉, 2.5

……

不可能遷就到，而為了保命，必須立刻超光速逃離，或者𣊬間轉移的例子有：

……

五、不可信：

誠信有問題，有兩個版本：

第一種是，會在沒有必要時，說假話，或透過隱瞞等方法，去誤導他人。

第二種是，會在沒有必要時，公開你的私隱，或者他人的秘密。

記住，誠信只可能破壞，不可能修補。

一旦發現她誠信有問題，千萬不要以為，她可能改過；因為，正正是因為她誠信有問題，她的改過本身，就很可能是，另一個謊言騙局而已。「一次不忠，百次不用」就是這個意思。

留意，誠信有問題，不限於壞人。

遇到好人講大話，即所謂「善意的謊言」時，亦建議不要再相處；因為，「連『我不會再騙你』也很可能是騙你的」這邏輯結構，與壞人版本，沒有分別。

例子一，自己身體有病時，為免別人擔心，宣稱沒有事。那只會引起更大的擔心，因為，下次當她宣稱沒有事時，我不會再知道，她是否真的沒有事。

例子二，她要去見異性朋友；為免我誤會，宣稱去見其他朋友。那只會引起永久的憂慮，因為我不知道，她還隱瞞了什麼，誤導了多少。

這種講法，有兩漏洞。

……

— Me@2024-09-05 03:33:08 PM

Euler problem 24.1.1

Posted on October 30, 2024 by rpflee

To formalize, if $a_0 < \ldots < a_n$ , then in the k-th permutation of $\{a_0, \ldots, a_n\}$ in lexicographic order, the leading entry is $a_q$ if $k = q(n!) + r$ for some $q \geq 0$ and $0 < r \leq n!$ . (Note that the definition of $r$ here is a bit different from the usual remainder, for which $0 \leq r < n!$ . Also, $a_q$ is the $(q+1)$ -th entry but not the $q$ -th entry in the sequence, because the index starts from 0.)

— edited Aug 30, 2011 at 18:23
— answered Aug 30, 2011 at 17:59
— user1551
— math stackexchange

Why $r$ Cannot Be Zero: If $r$ were allowed to be zero, it would imply that the leading entry of the permutation could be determined without any remaining elements to choose from, which contradicts the requirement of having a valid permutation. In other words, a remainder of zero would mean that we have perfectly divided $k$ by $n!$ , leading us to a situation where we would not be able to select the next element in the permutation sequence.

— AI Assistant

The Nice Guy Paradox, 3

Posted on October 27, 2024 by rpflee

One-way kindness is cowardice; two-way kindness is love.

— Me@2024-10-25 07:27:09 AM

Where are you? 2.4

Posted on October 26, 2024 by rpflee

Utopia | 何有之鄉, 2.4

不可能遷就到，而為了保命，必須立刻超光速逃離，或者𣊬間轉移的例子有：

一、永不守時：

有一次約會心儀對象，她沒有拒絕。但是，就單單那一次相約，她竟然連續失約改期五次。心儀對象，再不心儀。

二、以為愛情主要為享福：

拍拖不以結婚為目的；或結婚不以生兒育女為目標。

三、現實疏忽：

包括但不限於，家居安全或人身安全等意識不足。與她生活提心吊膽，不知何時會火災或爆炸。

四、文書疏忽：

在公文中，會有不少文法錯誤；或在表格中，會有重要資料偏差。

二十年前，工作伙伴有這個問題，我無留意，然後中招，中得好緊要。連公文也不細心，不肯反覆詳細檢查，反映三觀不正，例如，不會為他人（包括未來的自己）設想。

五、不可信：

誠信有問題，有兩個版本：

第一種是，會在沒有必要時，說假話，或透過隱瞞等方法，去誤導他人。

第二種是，會在沒有必要時，公開你的私隱，或者他人的秘密。

記住，誠信只可能破壞，不可能修補。

……

— Me@2024-09-05 03:33:08 PM

Table border

Posted on October 23, 2024 by rpflee

所有第一次, 2

<table border="1" style="border-collapse: collapse;width: 70%;margin: 20px auto">
  <thead>
    <tr>
      <th style="border: 1px solid #ddd;padding: 12px;text-align: left;background-color: #f2f2f2;color: #333">Duration</th>
      <th style="border: 1px solid #ddd;padding: 12px;text-align: left;background-color: #f2f2f2;color: #333">Subject</th>
    </tr>
  </thead>
  <tbody>
    <tr>
      <td style="border: 1px solid #ddd;padding: 12px">3 hours</td>
      <td style="border: 1px solid #ddd;padding: 12px">理科</td>
    </tr>
    <tr>
      <td style="border: 1px solid #ddd;padding: 12px">1 hour</td>
      <td style="border: 1px solid #ddd;padding: 12px">語文</td>
    </tr>
    <tr>
      <td style="border: 1px solid #ddd;padding: 12px">1 hour</td>
      <td style="border: 1px solid #ddd;padding: 12px"></td>
    </tr>
    <tr>
      <td style="border: 1px solid #ddd;padding: 12px">3 hours</td>
      <td style="border: 1px solid #ddd;padding: 12px">文科</td>
    </tr>
  </tbody>
</table>

Duration	Subject
3 hours	理科
1 hour	語文
1 hour
3 hours	文科

這個心結的本質就在於，和維珍在一起的時候，她所有的經歷，都是［只］跟你有關。那從青澀到成熟，都是只有你的參與。這種經歷，是可以支撐後面，漫漫的人生路。

維珍是把她自己，所有的一切，［都］給了你。而面對英航的時候，腦海當中，想起那段感情和經歷，不是跟自己的，就會覺得憋屈難受。

— 軒語說媒

2024.10.23 Wednesday ACHK

魔法師是怎樣煉成的, 2.2

Posted on October 22, 2024 by rpflee

這段改編自 2023 年 6 月 23 日的對話。

剛才講到：「有同情，就沒有愛情，因為，愛情的先決條件是：她傾慕你，而你又欣賞她。」

「同情會衍生愛情」是，嬰兒邏輯。有些人長不大，以為利用他嬰兒時期的手段——扭計哭鬧，就可以追求到愛情。

那亦可稱為，韓劇邏輯。

— Me@2024-10-22 11:25:10 AM

失戀可愛也

Posted on October 7, 2024 by rpflee

這段改編自 2021 年 12 月 16 日的對話。

失戀並不可怕，因為沒有東西要處理；可怕的是相反，不想有時有。

— Me@2024-10-07 12:46:47 AM

Where are you? 2.3

Posted on September 22, 2024 by rpflee

Utopia | 何有之鄉, 2.3

除了微觀短期，可不可遷就外，還要考慮宏觀長期。去或留的大原則是，你要問，究竟該職位，是令你的財富穩步上升，還是穩步下降。

同理，考慮應否與心儀對象，發展成情侶，乃至於夫妻時，你可以問，有了她，與她開始交往以後，你覺得人生吃力了很多，還是輕鬆了一點；反之亦然——她也應該要有，同樣的考慮。

更甚的話，你更可以問，自從認識她以後，你的財富穩步上升，還是穩步下降。亦即是話，你要一早判斷，究竟她是成家妻，還是敗家婆。

工作和愛情的主要分別是，一個職位的理想壽命，是兩至三年；而愛情的目標時長，則是一生一世。其他方面，則有很多地方相同。所以，你可以把一些選擇工作的原則，改編翻譯成愛情的版本。

— Me@2024-09-05 03:33:08 PM

Physics Town

continues

Category Archives: love

何有之鄉, 2.10

馬和小孩, 2

何有之鄉, 2.9

馬和小孩

Where are you? 3

Euler problem 26.1

真話騙子 2.2

Where are you? 2.7

真話騙子 2

Euler problem 25.1.2

Where are you? 2.6

反情感勒索, 3

Where are you? 2.5

Euler problem 24.1.1

The Nice Guy Paradox, 3

Where are you? 2.4

Table border

魔法師是怎樣煉成的, 2.2

失戀可愛也

Where are you? 2.3