Anonymous user
Sorting algorithms/Insertion sort: Difference between revisions
→{{header|Rebol}}
Line 1,851:
=={{header|Rebol}}==
<lang Rebol>
; This program works with Rebol version R2 and R3, to make it work with Red
; change the word func to function
insertion-sort: func [
a [block!]
/local i [integer!] j [integer!] n [integer!]
value [integer! string! date!]
][
i: 2
Line 1,875 ⟶ 1,877:
probe insertion-sort [4 2 1 6 9 3 8 7]
probe insertion-sort [ "---Monday's Child Is Fair of Face (by Mother Goose)---"
"Monday's child is fair of face;"
"Tuesday's child is full of grace;"
"Wednesday's child is full of woe;"
"Thursday's child has far to go;"
"Friday's child is loving and giving;"
"Saturday's child works hard for a living;"
"But the child that is born on the Sabbath day"
"Is blithe and bonny, good and gay."]
; just by adding the date! type to the local variable value the same function can sort dates.
probe insertion-sort [12-Jan-2015 11-Jan-2015 11-Jan-2016 12-Jan-2014]
</lang>
{{out}}
<pre>
[1 2 3 4 6 7 8 9]
[{---Monday's Child Is Fair of Face (by Mother Goose)---}
"But the child that is born on the Sabbath day"
"Friday's child is loving and giving;"
"Is blithe and bonny, good and gay."
"Monday's child is fair of face;"
"Saturday's child works hard for a living;"
"Thursday's child has far to go;"
"Tuesday's child is full of grace;"
"Wednesday's child is full of woe;"
]
[12-Jan-2014 11-Jan-2015 12-Jan-2015 11-Jan-2016]
</pre>
=={{header|REXX}}==
| |||