Voting
Category
esoteric language
Bookmarking
Language Iphigeneia
| Date: | 12/15/10 |
| Author: | Marinus Oosters |
| URL: | n/a |
| Comments: | 0 |
| Info: | http://catseye.tc/projects/iphi |
| Score: |  (3.33 in 9 votes) |
print 1 + valueof bottles in
begin
bottles := 99;
while bottles >= 0 do
begin
(* print number
there are no functions so this is repeated a few times
I'm only commenting the first one *)
if bottles = 0 then
(* no more *)
begin
print 78; print 111; print 32; print 109;
print 111; print 114; print 101
end
else if bottles < 0 then
(* 99 (last verse) *)
begin
print 57; print 57
end
else (* number *)
begin
(* print tens digit *)
if bottles >= 10 then
print bottles / 10 + 48
else (* not having an else is a syntax error *)
bottles := bottles;
(* print units digit - there is no modulo operator *)
print valueof d in
begin
d := bottles;
while d >= 10 do d := d - 10;
d := d + 48
end
end;
(* first line *)
print 32; print 98; print 111; print 116; print 116; print 108;
print 101; print if bottles=1 then 0 else 115; print 32; print 111;
print 102; print 32; print 98; print 101; print 101; print 114;
print 32; print 111; print 110; print 32; print 116; print 104;
print 101; print 32; print 119; print 97; print 108; print 108;
print 44; print 10;
(* condensed number output routine *)
if bottles=0 then begin print 78;print 111;print 32;print 109;
print 111;print 114;print 101 end else if bottles<0 then begin
print 57;print 57 end else begin if bottles>=10 then print bottles
/10+48 else bottles:=bottles;print valueof d in begin d:=bottles;
while d>=10 do d:=d-10;d:=d+48 end end;
(* second line *)
print 32; print 98; print 111; print 116; print 116; print 108;
print 101; print if bottles=1 then 0 else 115; print 32; print 111;
print 102; print 32; print 98; print 101; print 101; print 114;
print 44; print 10;
(* third line *)
if bottles/=0 then
begin (* take one down *)
print 84; print 97; print 107; print 101; print 32; print 111;
print 110; print 101; print 32; print 100; print 111; print 119;
print 110; print 32; print 97; print 110; print 100; print 32;
print 112; print 97; print 115; print 115; print 32; print 105;
print 116; print 32; print 97; print 114; print 111; print 117;
print 110; print 100
end
else
begin (* go to the store *)
print 71; print 111; print 32; print 116; print 111; print 32;
print 116; print 104; print 101; print 32; print 115; print 116;
print 111; print 114; print 101; print 32; print 97; print 110;
print 100; print 32; print 98; print 117; print 121; print 32;
print 115; print 111; print 109; print 101; print 32; print 109;
print 111; print 114; print 101
end;
print 44; print 10;
(* drink one *)
bottles := bottles - 1;
(* fourth line *)
if bottles=0 then begin print 78;print 111;print 32;print 109;
print 111;print 114;print 101 end else if bottles<0 then begin
print 57;print 57 end else begin if bottles>=10 then print bottles
/10+48 else bottles:=bottles;print valueof d in begin d:=bottles;
while d>=10 do d:=d-10;d:=d+48 end end;
print 32; print 98; print 111; print 116; print 116; print 108;
print 101; print if bottles=1 then 0 else 115; print 32; print 111;
print 102; print 32; print 98; print 101; print 101; print 114;
print 32; print 111; print 110; print 32; print 116; print 104;
print 101; print 32; print 119; print 97; print 108; print 108;
print 46; print 10; print 10
end
end
Download Source | Write Comment
Download Source | Write Comment
Add Comment
Please provide a value for the fields Name,
Comment and Security Code.
This is a gravatar-friendly website.
E-mail addresses will never be shown.
Enter your e-mail address to use your gravatar.
Please don't post large portions of code here! Use the form to submit new examples or updates instead!
Comments