すべてのコード

投稿されたすべてのコード一覧

ByRefは参照渡しか

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

コードを見る
  • タグ:
  • タグはありません

No.253 ロウソクの長さ on CommonLisp

;https://yukicoder.me/problems/no/253 (let ( (numMin 10 […]
;https://yukicoder.me/problems/no/253 (let ( (numMin 10 […]
;https://yukicoder.me/problems/no/253
(let (
	(numMin 10)
	(numMax 1000000001)
)
コードを見る
  • タグ:
  • タグはありません

No.253 ロウソクの長さ on VB

'https://yukicoder.me/problems/no/253 Module Progr […]
'https://yukicoder.me/problems/no/253 Module Progr […]
'https://yukicoder.me/problems/no/253
Module Program
	Sub Main
		Dim numMin=10
		Dim numMax=1000000001
コードを見る
  • タグ:
  • タグはありません

No.253 ロウソクの長さ on HSP

;https://yukicoder.me/problems/no/253 #runtime "hs […]
;https://yukicoder.me/problems/no/253 #runtime "hs […]
;https://yukicoder.me/problems/no/253
#runtime "hsp3cl"

numMin=10
numMax=1000000001
コードを見る
  • タグ:
  • タグはありません

No.246 質問と回答 on CommonLisp

;https://yukicoder.me/problems/no/246 (let ( (numMin 1) […]
;https://yukicoder.me/problems/no/246 (let ( (numMin 1) […]
;https://yukicoder.me/problems/no/246
(let (
	(numMin 1)
	(numMax 1000000001))
	(loop
コードを見る
  • タグ:
  • タグはありません

No.246 質問と回答 on VB

'https://yukicoder.me/problems/no/246 Module Progr […]
'https://yukicoder.me/problems/no/246 Module Progr […]
'https://yukicoder.me/problems/no/246
Module Program
	Sub Main
		Dim numMin=1
		Dim numMax=1000000001
コードを見る
  • タグ:
  • タグはありません

No.246 質問と回答 on HSP

;https://yukicoder.me/problems/no/246 #runtime "hs […]
;https://yukicoder.me/problems/no/246 #runtime "hs […]
;https://yukicoder.me/problems/no/246
#runtime "hsp3cl"

numMin=1
numMax=1000000001
コードを見る
  • タグ:
  • タグはありません
  • タグ:
  • タグはありません