Skip to content

Commit 1890476

Browse files
author
B.H Mulberry
committed
add an example called 'drawHeart'
Draw a heart-shaped pattern with a string parameter.
1 parent c8f2bfd commit 1890476

File tree

2 files changed

+76
-0
lines changed

2 files changed

+76
-0
lines changed

examples/README.md

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

3738
[1]: https://en.wikipedia.org/wiki/Fizz_buzz "Fizz buzz"
3839
[2]: https://zh.wikipedia.org/wiki/自產生程式 "自產生程式"
@@ -66,3 +67,4 @@
6667
[30]: sieve.wy
6768
[31]: sqrt_newton.wy
6869
[32]: turing.wy
70+
[33]: drawHeart.wy

examples/drawHeart.wy

Lines changed: 74 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,74 @@
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+
吾有一言。曰「「\n」」。名之曰「换行」。
41+
除十三以十。名之曰「乙」。
42+
除負十一以十。名之曰「乙止」。
43+
除四十以一千。名之曰「甲步長」。
44+
除六以一百。名之曰「乙步長」。
45+
吾有一數。曰一。名之曰「輸出位置」。
46+
吾有一言。曰「「」」。名之曰「果」。
47+
恆為是。若「乙」小於「乙止」者乃止也。
48+
除負十一以十。名之曰「甲」。
49+
除十一以十。名之曰「甲止」。
50+
吾有一言。曰「「」」。名之曰「本行」。
51+
恆為是。若「甲」大於「甲止」者乃止也。
52+
施「絕對值」於「甲」。名之曰「甲絕對值」。
53+
施「牛頓求根法」於「甲絕對值」。名之曰「減數」。
54+
乘五於「乙」。除其以四。名之曰「被減數」。
55+
減「被減數」以「減數」。名之曰「差」。
56+
施「乘方」於「差」。名之曰「加數」。
57+
施「乘方」於「甲」。加其以「加數」。減其以一。名之曰「函數值」。
58+
若「函數值」不大於零者。
59+
夫「心語」之「輸出位置」。名之曰「字」。
60+
銜「本行」以「字」。昔之「本行」者今其是矣。
61+
除「輸出位置」以「長度」。所餘幾何。加其以一。昔之「輸出位置」者今其是矣。
62+
若非。
63+
銜「本行」以「填充符」。昔之「本行」者今其是矣。
64+
终也。
65+
加「甲」以「甲步長」。昔之「甲」者今其是矣。
66+
云云。
67+
減「乙」以「乙步長」。昔之「乙」者今其是矣。
68+
銜「本行」以「换行」。昔之「本行」者今其是矣。
69+
銜「果」以「本行」。昔之「果」者今其是矣。
70+
云云。
71+
吾有一言。曰「果」。書之。
72+
是謂「畫心」之術也。
73+
74+
施「畫心」於「「今天天氣不錯」」。

0 commit comments

Comments
 (0)