多倍長演算ライブラリ ルーチン３１

［ 簡単な説明 ］

指定桁の LINT 型の一様乱数を生成します。（１０進２ｎ桁です。）
内部でスレーブルーチンとして、乱数ライブラリの urnd1( )を使用します。
（他のルーチンに変えても構いません。）

プログラム・ソース（"lrnd.c"） 　　　　　　　　　　top （トップに戻る） 
/*		lrnd.c		*/
#include "longint.h"

LINT lrnd(int len)
{
	LINT a;

	a.sign = 0;
	a.len = len;
	while(len)	a.num[len--] = urnd1() * BASE;
	while(a.num[a.len] == 0)	a.len--;
	a.num[0] = 0;
	return a;
}