Decorate-sort-undecorate idiom: Difference between revisions

END</syntaxhighlight>

<pre>[ "a", "is", "Code", "site", "Rosetta", "programming", "chrestomathy" ]</pre>

=={{header|FreeBASIC}}==

FreeBASIC doesn't normally print string lists in "quoted" form though I've added the quotes here to be consistent with the other solutions.

<syntaxhighlight lang="vb">Type map

a As String

b As Integer

End Type

Sub Sort(array() As map)

Dim As Integer i, j, min

Dim As Integer lb = Lbound(array), ub = Ubound(array)

For i = lb To ub - 1

min = i

For j = i + 1 To ub

If array(1,j).b <= array(1,min).b Then min = j

Next j

Swap array(min,1).a, array(i,1).a

Swap array(1,min).b, array(1,i).b

Next i

End Sub

Sub Schwartzian(a() As String)

Dim As Integer p, lb = Lbound(a), ub = Ubound(a)

Dim As map e(lb To ub, lb To ub)

' Decorate

For p = lb To ub

e(p,1).a = a(p)

e(1,p).b = Len(a(p))

Next

' Sort

Sort(e())

' Undecorate

Print "[";

For p = lb To ub

Print !"\"" & e(p,1).a & !"\", ";

Next

Print Chr(8) & Chr(8) & "]"

End Sub

Dim As String words(6) = {"Rosetta", "Code", "is", "a", "programming", "chrestomathy", "site"}

Schwartzian(words())

Sleep</syntaxhighlight>

{{out}}

<pre>["a", "is", "site", "Code", "Rosetta", "programming", "chrestomathy"]</pre>

=={{header|Fōrmulæ}}==

console.log(schwartzian(example, (e) => e.length));</syntaxhighlight>

<pre>[ 'a', 'is', 'Code', 'site', 'Rosetta', 'programming', 'chrestomathy' ]

[ 'a', 'Rosetta', 'Code', 'site', 'programming', 'is', 'chrestomathy' ]</pre>

| sort_by(length), sort_by_decorator(length)</syntaxhighlight>

<pre>["a","is","Code","site","Rosetta","programming","chrestomathy"]

["a","is","Code","site","Rosetta","programming","chrestomathy"]</pre>

print(TEST, "=>", schwartzian(TEST, len))</syntaxhighlight>

{{out}}

<pre>['Rosetta', 'Code', 'is', 'a', 'programming', 'chrestomathy', 'site'] => ['a', 'is', 'Code', 'site', 'Rosetta', 'programming', 'chrestomathy']</pre>

<pre>["a", "is", "site", "Code", "Rosetta", "programming", "chrestomathy"]</pre>