DouKaku?

分散関数呼び出しを実装してください．

呼び出される関数は，定価を整数で，割引率(%)を整数で受け取り，
文字列で「販売価格 ○円（定価○円から○%引き）」を返すものとします．
また，数字は3桁のカンマ区切りにするものとします．

たとえば，pricestring(2000, 20) なら
"販売価格 1,600円 (定価2,000円から20%引き)"
を返します．

関数の呼び出し元と，呼び出される側は，物理的に異なる
サーバに配置できることを条件とします．
呼び出し方法は問いませんが，呼び出し方法に名前がある場合，
それをタグに加えてください．
（XML-RPC，SOAP，CORBA，RMI，など）

また，作成した関数を直列に1万回呼び出して，
実行にかかった時間を測定してください．
測定時は別サーバでなくても構いません．
（なるべく別サーバが望ましいです）

測定環境として，
・サーバとクライアントのCPU・メモリ
・同一サーバ内での実行か別サーバでの実行か
・別サーバの場合，通信経路．（100Mbps Ethernet等）
・言語のバージョン
・ミドルウェアを使用している場合，その名前とバージョン
も併記してください．

1つの言語で複数の分散関数呼び出しの実装方法がある場合，
複数の回答を歓迎します．

出題の意図は，様々な分散呼び出し方法の実装例と，
レスポンス速度の確認にあります．

このお題は沢渡 みかげさんの投稿です。 まったく手を加えないでいい完成度の投稿で本当に助かります。 ありがとうございました。

rST をインストールした Squeak Smalltalk で。

10000 回はきつかったので 1000 回で計測。約 20 秒。
1.0Ghz PowerPC（サーバ）, 1.5Ghz VIA C7M（クライアント）; WiFi 11Mbps 経由

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

"サーバ側定義"
Object subclass: #Doukaku

Doukaku class >> pricestring: priceInt discount: discInt
    | result data |
    result := (priceInt * (100 - discInt) / 100) asInteger.
    data := {result. priceInt. discInt} collect: [:int | int asStringWithCommas].
    ^'販売価格 {1}円 (定価{2}円から{3}%引き)' format: data


"サーバ側スクリプト"
RSTBroker startOnPort: 9999.
RSTBroker export: Doukaku named: 'doukaku'


"クライアント側スクリプト"
| doukaku timeToRun result |
doukaku := 'doukaku@xx.xx.xx.xx:9999' asLocalObject.
timeToRun := [1000 timesRepeat: [
    result := doukaku pricestring: 20000 discount: 20]
] timeToRun.
^{result. timeToRun}
"=> #('販売価格 16,000円 (定価20,000円から20%引き)' 19677) "