Anonymous user
Hello world/Web server: Difference between revisions
add Mathematica
(add Mathematica) |
|||
Line 1,045:
The task becomes simply ..
<lang lb>print "hello world!" </lang>
=={{header|Mathematica}}==
<lang Mathematica>listener =
SocketListen["127.0.0.1:8080",
Function[{assoc},
With[{client = assoc["SourceSocket"]},
WriteString[client,
"HTTP/1.0 200 OK\nContent-Length: 16\n\nGoodbye, World!\n"];
Close[client]]]]
SystemOpen["http://127.0.0.1:8080"]</lang>
Clean up:
<lang Mathematica>DeleteObject[listener];
Close[listener["Socket"]]</lang>
=={{header|Modula-2}}==
| |||