Echt jetzt? FORTH ist die einzig wahre Programmiersprache. B-)
Der Interpreter und Compiler wird solange verändert, bis er das Problem optimal widerspiegelt.
Hier mal ein Forth CGI Script/Programm, welches ein paar Quadratzahlen ausgibt:
(viel hübscher als das Perl Gedöns)
Code:
#! /usr/bin/gforth : HTTP-HEADER ." Content-type: text/html" CR CR ; : <HTML> ." <HTML>" ; : </HTML> ." </HTML>" ; : <HEAD> ." <HEAD>" ; : </HEAD> ." </HEAD>" ; : <TITLE> ." <TITLE>" ; : </TITLE> ." </TITLE>" ; : <BODY> ." <BODY>" ; : </BODY> ." </BODY>" ; : <P> ." <P>" ; : </P> ." </P>" ; : <BR> ." <BR> " ; : <H1> ." <H1>" ; : </H1> ." </H1>" ; \ ============================ : squares() 11 1 DO I DUP * . <BR> LOOP ; \ ============================ HTTP-HEADER <HTML> <HEAD> <TITLE> ." CGI-Squares in Forth" </TITLE> </HEAD> <BODY> <H1> ." CGI-Squares in Forth" </H1> squares() </BODY> </HTML> bye
Kommentar