ページ 7 | Codetter（こーどったー）

Sub hoge(ByRef a)
	set a=CreateObject("Scripting.Dictionary")
	a.Add "a","changed"
End Sub

;https://yukicoder.me/problems/no/253
(let (
	(numMin 10)
	(numMax 1000000001)
)

'https://yukicoder.me/problems/no/253
Module Program
	Sub Main
		Dim numMin=10
		Dim numMax=1000000001

;https://yukicoder.me/problems/no/253
#runtime "hsp3cl"

numMin=10
numMax=1000000001

;https://yukicoder.me/problems/no/246
(let (
	(numMin 1)
	(numMax 1000000001))
	(loop

'https://yukicoder.me/problems/no/246
Module Program
	Sub Main
		Dim numMin=1
		Dim numMax=1000000001

;https://yukicoder.me/problems/no/246
#runtime "hsp3cl"

numMin=1
numMax=1000000001

//https://yukicoder.me/submissions/292157 を移植
const rl=require("readline").createInterface(process.stdin,process.stdout);

const g=function*(){
	var numMin=1;

//https://yukicoder.me/submissions/292157 を移植
const rl=require("readline").createInterface(process.stdin,process.stdout);
const readline=()=>new Promise(r=>rl.once("line",s=>r(s)));

(async function(){

#include "HSP3utf.as"
#include "kernel32.as"
#define WM_MOUSEMOVE                    0x0200

	screen 0, 1600, 900