2007年8月29日

35s heap sort

H001 LBL H
H002 INPUT A
H003 INPUT B
H004 RCL- A
H005 2
H006 INT÷
H007 STO K
H008 x<0?
H009 GTO H035
H010 RCL+ A
H011 STO M
H012 STO J
H013 RCL+ K
H014 STO I
H015 RCL(J)
H016 STO X
H017 x<>y
H018 RCL B
H019 x<y?
H020 GTO H026
H021 XEQ H073
H022 x≧y?
H023 GTO H026
H024 XEQ H092
H025 GTO H018
H026 RCL M
H027 STO J
H028 RCL X
H029 STO(J)
H030 RCL K
H031 1
H032 -
H033 STO K
H034 GTO H008
H035 RCL B
H036 1
H037 -
H038 STO K
H039 RCL A
H040 x>y?
H041 RTN
H042 STO M
H043 STO I
H044 x<>y
H045 1
H046 +
H047 STO J
H048 RCL(J)
H049 STO X
H050 RCL(I)
H051 STO(J)
H052 R↑
H053 1
H054 +
H055 STO I
H056 RCL K
H057 x<y?
H058 GTO H064
H059 XEQ H073
H060 x≧y?
H061 GTO H064
H062 XEQ H092
H063 GTO H056
H064 RCL M
H065 STO J
H066 RCL X
H067 STO(J)
H068 RCL K
H069 1
H070 -
H071 STO K
H072 GTO H039
H073 x>y?
H074 GTO H077
H075 RCL(I)
H076 GTO H088
H077 1
H078 RCL+ I
H079 STO J
H080 RCL(J)
H081 RCL(I)
H082 x≧y?
H083 GTO H088
H084 R↓
H085 x<>y
H086 STO I
H087 GTO H089
H088 RCL I
H089 x<>y
H090 RCL X
H091 RTN
H092 x<>y
H093 RCL M
H094 STO J
H095 R↓
H096 STO(J)
H097 R↓
H098 x<>y
H099 STO M
H100 2
H101 ×
H102 RCL- A
H103 STO I
H104 RTN

ヒープソート。
最適化?そんなのシラネ。
HP Forumのインサーションソートより、1分程度縮められた気がするのでまぁ良しとします。
サブルーチンにラベル振らないのは、単にケチだから。
A~Zまでしかない貴重なラベルを1つのプログラム内でいくつも消費するなんて・・・!

コメントする