プログラミング言語「Kuin」

Kuin逆引き辞典(exe版)8
乱数や時間や暗号を扱う

Kuin逆引き辞典(exe版)7 ファイルを読み書きする Kuin逆引き辞典(exe版)9 ウインドウとコントロールを扱う

2023年06月10日くいなちゃん

「プログラミング言語Kuin」の実行環境がexe用の逆引き辞典8、乱数と時間と暗号の扱い方についてです。

乱数を扱う

再現性のない乱数を取得する
再現性のある乱数を取得する
UUIDを生成する

時間を扱う

現在時刻を取得する
一定時間待つ
経過時間を計測する

暗号を扱う

1乱数を扱う

Kuinの疑似乱数生成にはメルセンヌツイスタ(SFMT)を用いていて、周期

の高品質な擬似乱数が高速で生成されます。

1.1再現性のない乱数を取得する

プログラムを起動するたびに異なる乱数を生成したい場合には、「lib@rnd」「lib@rndFloat」「lib@rndBit64」を使います(図1-1)。


		
			func main()
			  var i: int :: lib@rnd(3, 8) {3以上8以下の整数の乱数}
			  var f: float :: lib@rndFloat(3.0, 8.0) {3.0以上8.0未満の小数の乱数}
			  var b: bit64 :: lib@rndBit64() {0以上0xFFFFFFFFFFFFFFFF以下の乱数}
			end func

図1-1: 再現性のない乱数の取得

1.2再現性のある乱数を取得する

同じ乱数列を生成したい場合には、「lib@makeRnd」を使います(図1-2)。


		
			func main()
			  var rnd: lib@Rnd :: lib@makeRnd(1234b32) {乱数のシード値を指定}
			  var i: int :: rnd.rnd(3, 8) {6}
			  var f: float :: rnd.rndFloat(3.0, 8.0) {6.13495}
			  var b: bit64 :: rnd.rndBit64() {0xBE10B479E4D166ED}
			end func

図1-2: 再現性のある乱数の取得

lib@makeRndの引数に渡した値によって、生成される乱数列が決まります。

1.3UUIDを生成する

「00000000-0000-4000-8000-000000000000」のような36文字のユニークな文字列「UUIDバージョン4」を生成するには、「lib@rndUuid」を使います(図1-3)。


		
			func main()
			  var uuid: []char :: lib@rndUuid()
			end func

図1-3: UUIDの生成

生成したUUIDのいずれか2つが偶然重複するには、期待値で約

(=約230京)個生成する必要があり、現実には起こらないものとみなせます。

2時間を扱う

2.1現在時刻を取得する

現在時刻を取得するには「lib@now」を使います。ただしUNIX時間(1970年1月1日0時0分0秒からの経過時間を秒で表した値)で返ってくるため、適宜「lib@intToDate」で年月日時分秒に変換します(図2-1)。


		
			func main()
			  var unixTime: int
			  var year: int {年(西暦4桁)}
			  var month: int {月(1以上12以下)}
			  var day: int {日(1以上31以下)}
			  var hour: int {時(0以上23以下)}
			  var minute: int {分(0以上59以下)}
			  var second: int {秒(0以上59以下)}
			  var day_of_week: int {曜日(0=日、1=月、…、6=土)}
			 
			  do unixTime :: lib@now()
			  do day_of_week :: lib@intToDate(unixTime, &year, &month, &day, &hour, &minute, &second)
			  do unixTime :: lib@dateToInt(year, month, day, hour, minute, second)
			end func

図2-1: 現在時刻の取得

「intToDate」はUNIX時間をUTC(協定世界時)での日付に変換します。

逆に「dateToInt」は、UTCでの日付をUNIX時間に変換します。

2.2一定時間待つ

一定時間処理を停止させるには「lib@sleep(待機時間(ミリ秒))」とします(図2-2)。


		
			func main()
			  do lib@sleep(1000) {1秒間待機}
			end func

図2-2: 処理の待機

2.3経過時間を計測する

ある時点からの経過時間を得るには、「lib@sysTime」を使います。 lib@sysTimeはOSが起動してから現在までに経った時間がミリ秒で返るため、差分を計算することで経過時間が判ります(図2-3)。


		
			func main()
			  var before: int :: lib@sysTime()
			  do lib@sleep(1000)
			  var after: int :: lib@sysTime()
			  var time: int :: after - before {経過時間(ミリ秒)}
			end func