コードハイライティング

module Main
import StdEnv

Start = take 10 primes

//素数列を求める
primes = sieve [2..]
  where
    sieve [p:rs] = [p:sieve (filter (\x = x rem p <> 0) rs)]

むむ。

-module(test).
-export([hoger/1, send_and_receive/2]).

% 何か受信したらhogeを付けてプロセスPに送る無限ループ
hoger(P) ->
	receive X -> P ! {hoge,X} end,
	hoger(P).

% プロセスPにXを送信して、返事を待つ
send_and_receive( X, P ) ->
	P ! X,
	receive R -> R end.

むむむ。