Skip to content

Commit fe614c1

Browse files
author
B.H Mulberry
committed
fix the example draw_heart
1 parent 1890476 commit fe614c1

File tree

3 files changed

+44
-76
lines changed

3 files changed

+44
-76
lines changed

examples/README.md

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -33,7 +33,7 @@
3333
| [sieve.wy][30] | 埃氏篩 |
3434
| [sqrt_newton.wy][31] | 牛頓求根法 |
3535
| [turing.wy][32] | 圖靈機 |
36-
| [drawHeart.wy][33] | 畫心 |
36+
| [draw_heart.wy][33] | 畫心 |
3737

3838
[1]: https://en.wikipedia.org/wiki/Fizz_buzz "Fizz buzz"
3939
[2]: https://zh.wikipedia.org/wiki/自產生程式 "自產生程式"
@@ -67,4 +67,4 @@
6767
[30]: sieve.wy
6868
[31]: sqrt_newton.wy
6969
[32]: turing.wy
70-
[33]: drawHeart.wy
70+
[33]: draw_heart.wy

examples/drawHeart.wy

Lines changed: 0 additions & 74 deletions
This file was deleted.

examples/draw_heart.wy

Lines changed: 42 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,42 @@
1+
吾嘗觀「「算經」」之書。方悟「絕對」「平方根」之義。
2+
3+
吾有一術名之曰「畫心」。
4+
欲行是術。必先得一言。曰「心語」。
5+
乃行是術曰。
6+
夫「心語」之長。名之曰「長度」。
7+
吾有一言。曰「「``」」。名之曰「填充符」。
8+
吾有一言。曰「「\n」」。名之曰「换行符」。
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+
施「畫心」於「「琉璃梳子撫青絲,畫心牽腸癡不癡。」」。

0 commit comments

Comments
 (0)