Sort an outline at every level: Difference between revisions

 

;Task:

 

=={{header|AutoHotkey}}==

;-----------------------

; get Delim, Error Check

result.=delim

return result

(

zeta

MsgBox % Sort_an_outline(Data_2)

MsgBox % Sort_an_outline(Data_2, 1)

Output: tabulated for ease of reading, actual output is text only, Error check returns first line with inconsistent delimiter!<pre>

======================================================================================================

Error @ iota ||Error @ gamma

=================================

</pre>

 

=={{header|Go}}==

{{trans|Wren}}

 

import (

fmt.Println("\nSecond unspecified outline, descending sort:")

sortedOutline(outline4, false)

 

{{out}}

 

=={{header|Haskell}}==

 

import Data.Tree (Tree(..), foldTree)

| x <- textLines

, s <- [T.takeWhile isSpace x]

{{Out}}

<pre>Four-spaced (A -> Z):

 

-> Inconsistent indent depths: [4,3,8,9,8,4,4,4,4]</pre>

 

=={{header|Julia}}==

A <code>for</code> loop was used in the constructor, and recursive functions for sorting and printing.

 

abstract type Entry end

println(y)

end

<pre>

Given the text:

</pre>

 

 

zeta

beta

theta

iota

epsilon

 

 

{{out}}

<pre>

 

=={{header|Python}}==

 

 

# MAIN ---

if __name__ == '__main__':

{{Out}}

<pre>4-space indented (A -> Z):

Unknown 2 (Z -> A):

Inconsistent indentation width at line 3</pre>

 

=={{header|Wren}}==

{{libheader|Wren-sort}}

{{libheader|Wren-fmt}}

 

var sortedOutline = Fn.new { |originalOutline, ascending|

 

System.print("\nSecond unspecified outline, descending sort:")

 

{{out}}