Hsp3.0 で 100 までの素数を列挙

何か忘れてたと思ったら Hsp で列挙するのを忘れてましたｗ*1

#module
    #defcfunc is_prime int a
        for ar, int(sqrt(a)), 1, -1
            if a \ ar == 0 : return 0
        next
    return 1

#global
    res = ""
    for i, 2, 100, 1
        if is_prime(i) : res = res + i + " "
    next
    mes res

こんな感じー
久しぶりに Hsp に触りましたけど、#defcfunc あたり使いやすいですねー。
命名が多少気持ち悪いですが……。*2

*1:Hsp3.0 を使用

*2:Define C Function の略？