Futurama "Home Sweet Home" in different programming languages

[PryGuy]

Good day, people!

In Futurama's 'I, roommate (http://en.wikipedia.org/wiki/I,_Roommate)' episode there is a pic on the wall:

http://img437.imageshack.us/img437/7439/bscap0001gc.jpg

It resembles Basic I had on my Sinclair ZX-Spectrum, and it should look like:

10 PRINT "Home"
20 PRINT "Sweet"
30 GOTO 10

In bash it would look like:

#!/bin/bash

while [ true ]; do
echo "Home"
echo "Sweet"
done

Any other programming languages, please... :)

[sydbat]

I miss Futurama...

[PryGuy]

Me too... That's why I started watching it all over again the other day...

[sydbat]

A friend of mine has all 5 seasons on DVD. I should borrow them. What season is 'I, roommate' in?

[PryGuy]

1 season, 3 episode

[sydbat]

Is that the one where Fry stays with Bender for awhile and finds out there is a whole luxurious suite just through a doorway? If so, then I remember it...I'll have to pay closer attention when I borrow the DVD's.

[Chronon]

New episodes are starting June 2010 on Comedy Central!!

[chessnerd]

Java:


public class HomeSweetHome {
public static void main(String[] args) {
while (true) {
System.out.println("Home");
System.out.println("Sweet");
}
}
}

Futurama is a pretty good show.

[aldld]

Python:



while True:
print 'Home'
print 'Sweet'

[PryGuy]

Is that the one where Fry stays with Bender for awhile and finds out there is a whole luxurious suite just through a doorway? If so, then I remember it...I'll have to pay closer attention when I borrow the DVD's.Yep, that's the episode!

[prodigy_]

DOS/Windows batch:

:10
@echo HOME
@echo SWEET
@goto 10

[Untitled_No4]

PHP:


<?php
while (TRUE) {
echo "HOME\n";
echo "SWEET\n";
}



Edit: forgot one semi-colon.

[PryGuy]

PHP:I've been waiting for that! ;)

[clonne4crw]

x86 (Linux) Assembly language:


home db "Home", 0
lenHome db $ - home
sweet db "Sweet", 0
lenSweet db $ - sweet

jmp main

PrintHome:
mov edx, lenHome
mov ecx, home
mov ebx, 1
mov eax, 4
int 0x80
ret

PrintSweet:
mov edx, lenSweet
mov ecx, sweet
mov ebx, 1
mov eax, 4
int 0x80
ret

main:
call PrintHome
call PrintSweet
jmp main

mov eax, 1
int 0x80

[SoFl W]

In one episode they had some sort of scanner, when they scanned Bender it showed he was using a 6502 chip.

[dragos240]

I wish I knew more C.

[chappajar]

I wish I knew more C.
int main(){
while (1)
printf(''HOME\nSWEET\n'');
}

[Sporkman]

Sporkl: (http://sporkforge.com/sporkapps/doc/index.php)



for (int i=0; i<100000; ++i)
{
print("Home\nSweet\n");
}

I had to cap it at 100000, as it craps out when you print out much more (given that it runs in an online environment)... :)

[NovaAesa]

Scheme:



(define (foo)
(display "home")(newline)
(display "sweet")(newline)
(foo))
(foo)


EDIT: anyone know if this can be done in scheme with an anonymous procedure?

[red_Marvin]

perl

'while(1){print for("home\n","sweet\n")};'

forth

: home-sweet begin ." home" cr ." sweet" cr again ; home-sweet

sed (with echo initialization)

echo home|sed -n 'x;s/.*/sweet/;:x;x;p;bx'

more mixed bash tools, just because it is fun

yes|sed 's/./hom&esw&&t/'|tr ye 'e\n'

befunge93 (and probably later versions too)

v ># #< v
>052*"teews" 52* "emoh"v
^,_ ^#:< <
EDIT: It is possible to write the perl/sed/befunge examples in much less interesting ways.

[clonne4crw]

Machine language:


A38601002A9400000054000000500000005555555500000082 47000D000800130080001A000000240000401B2F0000403634 00030039000340054100034006470003400C6C696E7578486F 6D655377656574486F6D65005F7374617274005072696E7448 6F6D65005072696E745377656574006D61696E00686F6D6500 6C656E486F6D65007377656574006C656E5377656574002042 66BA0383050000004266B983000000005166BB0100000066B8 04000000CD80C366BA830C0000004266B983060000006066BB 0100000066B804000000CD80C3E8C7FFE8DFFFE9F7FF66B801 000000CD80234D486F6D6500055377656574000600

[Dr Belka]

C++


#include <iostream>

using namespace std;

int main()
{
while (1)
{
cout << "home" << endl;
cout << "sweet" << endl;
}
return 0;
}

[schauerlich]

brainfsck

prints it 5 times, but it could easily be changed to go infinitely many times - just don't decrement the counter cell


print out "Home Sweet\n" 5 times

+++++ how many times to loop through
[
>

+++++ +++++ multiply by 10
[
>
+++++ ++ 70 for our capital letters
>
+++++ +++++ 100 for beginning upper case
>
+++++ +++++ ++ 120 for end of lower case
>
+++ 30 for our space char
>
+ 10 for our newline

<<<<< Go back to our counter
- decrease it
]

> Go to upper case (70)
++ 72 "H"
.

> Go to beginning lower case (100)
+++++ +++++ + 111 "o"
.
-- 109 "m"
.
----- --- 101 "e"
.

>> Go to control chars (30)
++ 32 " "
.

<<< Go to upper case (72)
+++++ +++++ + 83 "S"
.

>> Go to end lower case (120)
- 119 "w"
.
< Go to lower case beginning (101)
. 101 "e"
. 101 "e"

> Go to lower case end (119)
--- 116 "t"
.

>> Go to newline (10)
. 10 "\n"

clear all variables for next loop
[-] newline
<
[-] space
<
[-] end lower
<
[-] beg lower
<
[-] capital

<< decrement counter
-
]

[Zoot7]

Verilog


module home_sweet_home;
initial
begin
$display("Home Sweet Home!");
#10 $finish;
end
endmodule

[Dayofswords]

REQUEST:

LOLCODE please =)

[Zoot7]

REQUEST:

LOLCODE please =)

Unless I'm wrong this'll do the job. :)

HAI
CAN HAS STDIO?
IM IN YR LOOP
VISIBLE "HOME SWEET HOME!1!!"
IM OUTTA YR LOOP
KTHXBYE

[Dayofswords]

Unless I'm wrong this'll do the job. :)

HAI
CAN HAS STDIO?
IM IN YR LOOP
VISIBLE "HOME SWEET HOME!1!!"
IM OUTTA YR LOOP
KTHXBYE

http://www.kitchenroundtable.com/i/smiley/udaman.gif

[J V]

REQUEST:

LOLCODE please =)I was just about to say :)

[sxmaxchine]

that is so cool i would never have picked up on that

[weichimaster]

For a proprietary example, VBA outputting into Excel:



Option Explicit
Sub home_sweet()
Dim i As Integer
i = 1
Do While (True)
Cells(i, 1) = "Home"
Cells(i + 1, 1) = "Sweet"
i = i + 2
Loop
End Sub

[weresheep]

AWK


awk 'BEGIN {for (;;) {print "Home\nSweet"} }'

-weresheep

[MarcusW]

Matlab:


while(true)
fprintf('Home\nSweet\n')
end

[whiskeylover]

PLSQL

Note: the output in PLSQL is always single buffered. There is no FLUSH in PLSQL. Everything a program ever outputs is stored in a single buffer and output at the end, or if the buffer overflows, an exception is thrown.



SET serveroutput ON
BEGIN
WHILE 1 = 1
LOOP
dbms_output.put_line('HOME');
dbms_output.put_line('SWEET');
END LOOP;
EXCEPTION
WHEN OTHERS THEN
NULL;
END;

OR


DECLARE
ind_max NUMBER;
CURSOR cur
IS
SELECT id, column1 FROM table1 ORDER BY id, column1;
BEGIN
ind_max := 100;
FOR ind IN 1 .. ind_max
LOOP
INSERT INTO table1
(id, column1
) VALUES
(ind, 'HOME'
);
INSERT INTO table1
(id, column1
) VALUES
(ind, 'SWEET'
);
COMMIT;
END LOOP;
FOR r_cur IN cur
LOOP
dbms_output.put_line
(
r_cur.column1
)
;
END LOOP;
EXCEPTION
WHEN OTHERS THEN
NULL;
END;

[KdotJ]

Unless I'm wrong this'll do the job. :)

HAI
CAN HAS STDIO?
IM IN YR LOOP
VISIBLE "HOME SWEET HOME!1!!"
IM OUTTA YR LOOP
KTHXBYE

lol thats awesome stuff

[PryGuy]

brainfsck

prints it 5 times, but it could easily be changed to go infinitely many times - just don't decrement the counter cell


print out "Home Sweet\n" 5 times

+++++ how many times to loop through
[
>

+++++ +++++ multiply by 10
[
>
+++++ ++ 70 for our capital letters
>
+++++ +++++ 100 for beginning upper case
>
+++++ +++++ ++ 120 for end of lower case
>
+++ 30 for our space char
>
+ 10 for our newline

<<<<< Go back to our counter
- decrease it
]

> Go to upper case (70)
++ 72 "H"
.

> Go to beginning lower case (100)
+++++ +++++ + 111 "o"
.
-- 109 "m"
.
----- --- 101 "e"
.

>> Go to control chars (30)
++ 32 " "
.

<<< Go to upper case (72)
+++++ +++++ + 83 "S"
.

>> Go to end lower case (120)
- 119 "w"
.
< Go to lower case beginning (101)
. 101 "e"
. 101 "e"

> Go to lower case end (119)
--- 116 "t"
.

>> Go to newline (10)
. 10 "\n"

clear all variables for next loop
[-] newline
<
[-] space
<
[-] end lower
<
[-] beg lower
<
[-] capital

<< decrement counter
-
]Thanks, pal! I've been waiting for the good ole brainfsck! :)