0107デフォルトの名無しさん
2018/10/07(日) 15:01:25.45ID:+QuskqX4このゴミコードどうすんだよww
638 名前:ピラフ ◆9Jro6YFwm650 [] 投稿日:2018/09/05(水) 23:11:54.62 ID:BuNkH2Jq [2/3]
見せてやるよ、形式に囚われないピラフの究極奥義
SUB SWAP(A, B, C)
C = A
A = B
B = C
END SUB
SUB SORT(A, I, J)
FOR I = 1 TO UBOUND(A)
FOR J = 1 TO UBOUND(A)
IF A(J - 1) > A(J) THEN SWAP A(J - 1), A(J), EMPTY
NEXT
NEXT
END SUB
SUB MAIN(A)
A = ARRAY(5,4,3,2,1)
SORT A, EMPTY, EMPTY
WSCRIPT.STDOUT.WRITELINE JOIN(A, ",")
END SUB
MAIN EMPTY