[ Pobierz całość w formacie PDF ]
july 5, 2007
december 11, 2006
Java 2 (v1.4.2_18)
july 11, 2008
Java 2 (v5.0 update 16)
Java 2 (v5.0 update 8) Java 2 (v5.0 update 12)
july 11, 2008
august 11, 2006 may 31, 2007
Ruby 1.8.5 Ruby 1.8.6 Ruby 1.8.7
august 25, 2006 march 13, 2007 may 31, 2008
Self 4.3
june 30, 2006
PHP 4.4.2 PHP 4.4.4 PHP 4.4.7 PHP 4.4.8
january 13, 2006 august 17, 2006 may 3, 2007 january 3, 2008
PHP 5.1.6
PHP 5.2.0 PHP 5.2.3 PHP 5.2.4 PHP 5.2.5 PHP 5.2.6
august 24, 2006
november 2, 2006 may 31, 2007 august 30, 2007 november 9, 2007 may 1, 2008
Perl 5.8.8 Perl 5.10
february 2, 2006 december 21, 2007
O Caml 3.09.2 O Caml 3.10.0
april 14, 2006 may 16, 2007
Scheme R6RS (draft)
september 14, 2006
2008
Java 6 Update 7
july 11, 2008
Java 2 (v1.4.2_18)
july 11, 2008
Java 2 (v5.0 update 16)
july 11, 2008
Ruby 1.8.7
may 31, 2008
PHP 4.4.8
january 3, 2008
PHP 5.2.6
may 1, 2008
Kompi'acja vs. i?terpretacja
I?terpreter y y
u n n u
Kompi'ator n y
y u n n
u y n
yn y
n y n
y y n n y n
y y y ny n
u u
n n y
n ny
n y
n ny u
n n
In u u
99 bÅte'ek piwa I
y u y n u
u n
n
n n n un n
n
n n n un n
n
n n n un n n
n n
n uy n
y u
y y n y I u
y n y n u
99 bÅte'ek piwa II
n u y n
ny y n
http:
//www.westnet.com/mirrors/99bottles/beer.html
http://99-bottles-of-beer.net/
y u u u u
http://www.roesler-ac.de/wolfram/hello.htm
He''o Wor'd
Fortra?
C Hello World in Fortran
PROGRAM HELLO
WRITE (*,100)
STOP
100 FORMAT ( Hello World! /)
END
! Hello World in Fortran 90 and 95
PROGRAM HelloWorld
WRITE(*,*) "Hello World!"
END PROGRAM
He''o Wor'd
Pasca'
{Hello World in Pascal}
program HelloWorld(output);
begin
WriteLn( Hello World! );
end.
He''o Wor'd
ANSI C
/* Hello World in C, Ansi-style */
#include
#include
int main(void)
{
puts("Hello World!");
return EXIT_SUCCESS;
}
99 bott'es of beer
Fortra?
program ninetyninebottles
integer bottles
* 99 Bottles of Beer, as implemented in FORTRAN 77
* Written by Alex Ford - gustavderdrache@bellsouth.net
* Notable feature: Arithmetic IF statement
bottles = 99
* Format statements
1 format (I2, A)
2 format (A)
3 format (I2, A, /)
4 format (A, /)
* First 98 or so verses
10 write (*,1) bottles, bottles of beer on the wall,
write (*,1) bottles, bottles of beer.
write (*,2) Take one down, pass it around...
if (bottles - 1 .gt. 1) then
write (*,3) bottles - 1, bottles of beer on the wall.
else
write (*,3) bottles - 1, bottle of beer on the wall.
end if
bottles = bottles - 1
if (bottles - 1) 30, 20, 10
* Last verse
20 write (*,1) bottles, bottle of beer on the wall,
write (*,1) bottles, bottle of beer.
write (*,2) Take one down, pass it around...
write (*,4) No bottles of beer on the wall.
30 stop
end
99 bott'es of beer
BASIC
10 REM Basic version of 99 bottles of beer
20 FOR X=100 TO 1 STEP -1
30 PRINT X;"Bottle(s) of beer on the wall,";X;"bottle(
40 PRINT "Take one down and pass it around,"
50 PRINT X-1;"bottle(s) of beer on the wall"
60 NEXT
99 bott'es of beer
Per'
# Copyright 2001 Christopher J. Carlson
# All Rights Reserved
$a=
"cpuu
\bmft p
\bg cff
\bs";$b
="po ui
\bf xbm
\bm";$c="
Ypv ublf p
\bof epxo qb
\btt ju bspvoe";
$a =~ s/\n//;$a =~
s/\s+/ /g; $b =~
s/\n// ; $b =~
s/\s+/ /g;$c =~
s/\n// ; $c =~
s/\s+/ /g;$a =~
y/b-z/a-z/;$b =~
tr/b-z/a-z/;$c =~
tr/b-z/a-z/ ; for(
$d=100;$d>0;$d--){
print"$d $a $b $d"
;print" $a,\n$c, "
;print($d-1);print
" $a $b.\n";} $x =
"cjc"; $y="dobbz";
$z="com";print"\n"
;print "- $x\@$y."
;print"$z \n\n";
99 bott'es of beer
A
LTEX
%% TeX/LaTeX version of 99 bottles of Beer
%%
%% Craig J Copi - copi@oddjob.uchicago.edu
%%
\parindent=0pt
\newcount\beercurr
\def\beer#1{\beercurr=#1\let\next=\removebeer\removebeer}
\def\removebeer{
\ifnum\beercurr>1
\the\beercurr\ bottles of beer on the wall,\par
\the\beercurr\ bottles of beer,\par
take one down, pass it around,\par
\advance\beercurr by -1
\the\beercurr\ bottle\ifnum1
\vskip 2ex\relax
\else
1 bottle of beer on the wall,\par 1 bottle of beer,\par
take one down, pass it around,\par no bottles of beer on the wall.\par
\vskip .5ex
Time to buy some more beer\ldots. \let\next=\relax
\fi
\next}
\beer{99}
III
Przykłady
Największy wspó'?y dzie'?ik
Wersja rekÅre?cyj?a
= ;
( , ) =
( , ) > .
Największy wspó'?y dzie'?ik
Program w C
#i?c'Åde
i ? t i ? t i ? t n
n n n
i f
retÅr? n
e'se
retÅr? n
Największy wspó'?y dzie'?ik
Program w C
i ? t n void
i ? t n yn
n
n n
yn n
n yn n yn
retÅr?
SimÅ'i?k
y n n n
˜ + ˜ + ˜ =
˜ y y n u
y n ynn u n
SimÅ'i?k
y n n n
˜ + ˜ + ˜ =
˜ y y n u
y n ynn u n
n y u y n
y
˜ = - ˜ - ˜
SimÅ'i?k
SimÅ'i?k
˜ ˜
Wahadło
˜
˜ = - ˜ - ˜
Wahadło
˜ ˜
˜ = - ˜ - ˜
Wahadło
˜ ˜ ˜
˜ = - ˜ - ˜
Wahadło
˜ ˜ ˜
- ˜
-
˜ = - ˜ - ˜
Wahadło
˜ ˜ ˜
- ˜
- -
- ˜
˜ = - ˜ - ˜
Wahadło
˜ ˜ ˜
- ˜
- -
- ˜
˜ = - ˜ - ˜
[ Pobierz całość w formacie PDF ]