ノベルツール選考スレXP

**名前は開発中のものです。** · 04/05/02 16:20

ﾏﾀｰﾘ語れ

**363** · 04/11/30 20:05:06

ついでなので、Ｎスク用
基本的には固まるので実行不能
waitをいれると固まらないが、日が暮れそう。

最近演算記号が使えるようになったと聞くが、
資料がなかったので、演算コマンドのまま。

間違っているところがあったら直して・・略

これも改行が多い、とはねられたのでソースは下。

**363** · 04/11/30 20:05:37

；；；----------------------------------
*define
mov %0,1;ループ回数
mov %1,0;時間
game
*start

for %2=0 to %0 1
resettimer
for %3=2 to 10000 1
for %4=2 to %3 1
wait 0;固まるのでウェイト
mov %5,%3
mod %5,%4
if %5==0:break
next
next
gettimer %6
add %1,%6
next
div %1,%0
%1@
；；；---------------------------------
代表的なＮスクがこれなので、
同様の演算がちゃんとできるノベルツールは希と思われ。
ＨＮＳはそういう意味ではスゴイのかも。

**名前は開発中のものです。** · 04/11/30 21:40:20

# 参考までにperl。うち(Pentium4 2.4GHz, ActivePerl5.8 build805)だとCで135ms Perlで1750ms 約1/12.96倍
# ループにforeachじゃなくてfor($i = 2; $i < 10000; $i++) とかを使うともっと遅い
use strict;
use POSIX;
my $loop = 1;
sub main()
{
my($times, $count, $begin_time, $times, $i, $j);
$times = 0;
for ($count = 0; $count < $loop; $count++)
{
$begin_time = clock();
foreach $i (2 .. 9999)
{
foreach $j (2 .. $i)
{
last if !($i % $j);
}
}
$times += clock() - $begin_time;
}
printf("Average %f ms. \n", $times / $loop);
}
& main;

**363** · 04/11/30 22:43:06

ダメで元々、このスレの最初の方で話題になっていたHSP製ツール
繰り返し文は入れ子にできないのでgotoで代用、ミリ秒は測れないが１秒切るわけはないので・・・
いきなり誤動作して、最後までジャンプ、
胃が痛くなりながら書いたのに・・・・・

直して＞アレスユーザー

例によってソースは下。

**363** · 04/11/30 22:47:31

$loop=1
$time=0
#rep1
$ptime=$minute
$ptime*60
$qtime=$second
$ptime+$qtime
$cont1+1
!if $cont1>$loop,#br1
$cont2=2
#rep2
$cont2+1
!if $cont2>10000,#br2
$cont3=2
#rep3
$cont3+1
!if $cont3>$cont2,#br3
$tmp=$cont2
$tmp\$cont3
!if $tmp=0,#br3
!goto #rep3
#br3
!goto #rep2
#br2

**363** · 04/11/30 22:49:25

;更にはねられたので続き
$stime=$minute
$stime*60
$ttime=$second
$stime+$ttime
$stime-$ptime
$time+$stime
!goto #rep1
#br1
$time/$loop
$time
;;;----------------------------------

**名前は開発中のものです。** · 04/11/30 23:03:38

あ、コピペすると改行が半角スペースになるので直してね、
多くのツールは不要な半角スペースがあると誤動作するんで。
あと、Ｎスクのコメント部のセミコロンが全角になっとる、ｽﾏｿ