Skip to content

Commit b48b1e9

Browse files
authored
Add Baklava in Fetlang (#4196)
1 parent aa23975 commit b48b1e9

File tree

1 file changed

+34
-0
lines changed

1 file changed

+34
-0
lines changed

archive/f/fetlang/baklava.fet

Lines changed: 34 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,34 @@
1+
worship Zera (0 * 1)
2+
spank Nora ten times (0 - 10)
3+
lick Enzo eleven times (0 + 11)
4+
5+
(while Nora < Enzo)
6+
while Nora is submissive to Enzo
7+
(Spencer = number of spaces = abs(Nora))
8+
if Nora is submissive to Zera
9+
have Nora spank Spencer (0 - Nora)
10+
otherwise
11+
have Nora lick Spencer (0 + Nora)
12+
13+
(Starr = number of stars = 21 - 2 * Spencer)
14+
lick Starr twenty one times (0 + 21)
15+
have Spencer spank Starr (21 - Spencer)
16+
have Spencer spank Starr (21 - 2 * Spencer)
17+
18+
(Output " " Spencer times
19+
Note: Spencer will be zero when this loop exits)
20+
while Spencer is dominant towards Zera
21+
make slave moan " "
22+
spank Spencer
23+
24+
(Output "*" Starr times
25+
Note: Starr will be zero when this loop exits)
26+
while Starr is dominant towards Zera
27+
make slave moan "*"
28+
spank Starr
29+
30+
(Output newline)
31+
make slave scream
32+
33+
(Increment Nora)
34+
lick Nora

0 commit comments

Comments
 (0)