Echo server: Difference between revisions

m
→‎{{header|LFE}}: Tweaked for LFE
m (→‎{{header|LFE}}: Changed to more standard syntax for pattern matching)
m (→‎{{header|LFE}}: Tweaked for LFE)
Line 1,131:
 
=={{header|LFE}}==
{{trans|Erlang}}
<lang lisp>
;;;
;;; This is a straight port from the Erlang version.
;;;
;;; You can run this in the LFE REPL by slurping the file:
;;;
;;; > (slurp "echo_server.lfe")
;;; > (start)
;;;
(defmodule echo
(export (start 0)))
 
PAste into the LFE REPL:
<lang lisp>
(defun start ()
(spawn (lambda ()
Line 1,162 ⟶ 1,154:
(lfe_io:format "Connection closed: ~p~n" (list conn)))))
</lang>
 
Usage:
 
<pre>
> (exportset server (start 0)))
<0.38.0>
> (! server "hey!")
"hey!"
> (! server "wassup?")
"wassup?"
</pre>
 
=={{header|Nim}}==
Anonymous user