Display an outline as a nested table: Difference between revisions

 

=={{header|AutoHotkey}}==

oNum:=[], oMID:=[], oNod := [], oKid := [], oPnt := [], oMbr := [], oLvl := []

oCrl := ["#ffffe6;", "#ffebd2;", "#f0fff0;", "#e6ffff;", "#ffeeff;"]

return [html, wTable]

}

(

Display an outline as a nested table.

Gui, Show

MsgBox % "HTML:`n" result.1 "`n`nWikitable:`n" result.2

{{out}}

HTML:

 

=={{header|Go}}==

 

import (

toNest(iNodes2, 0, 0, &n2)

fmt.Println(toMarkup(n2, cols2, 4))

 

{{out}}

 

=={{header|Haskell}}==

 

module OutlineTree where

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

 

 

wikiTableFromRows

. levels

. paintedTree colorSwatch

. widthLabelledTree

 

--------------------------- TEST -------------------------

main =

( putStrLn

[ "#ffffe6",

"#ffebd2",

---------------- TREE PADDED TO EVEN DEPTH ---------------

 

paddedTree padValue = go

where

| 1 >= n = tree

| otherwise =

Node

(rootLabel tree)

<$> bool nest [Node padValue []] (null nest)

)

( zipWith

(fmap . (,))

(subForest tree)

)

<> "style=\"text-align: center;\"\n|-\n"

<> intercalate "|-\n" (wikiRow <$> rows)

{{Out}}

{| class="wikitable" style="text-align: center;"

| |

| |

|}

 

=={{header|JavaScript}}==

 

// main :: IO ()

const main = () => {

and write out a table with 'colspan' values

either as a wiki table,

 

};

 

 

 

};

 

// indentLevelsFromLines :: [String] -> [(Int, String)]

const indentLevelsFromLines = xs => {

const

};

 

);

};

 

};

 

 

);

 

};

 

};

 

 

 

// Just :: a -> Maybe a

const Just = x => ({

Nothing: false,

Just: x

});

 

 

// Nothing :: Maybe a

const Nothing = () => ({

});

 

// Tuple (,) :: a -> b -> (a, b)

 

// compose (<<<) :: (b -> c) -> (a -> b) -> a -> c

const compose = (...fs) =>

 

 

// cycle :: [a] -> Generator [a]

const lng = xs.length;

let i = 0;

while (true) {

i = (1 + i) % lng;

}

};

 

 

// A simple function lifted to one which applies

// to a tuple, transforming only its first item.

 

 

 

// fst :: (a, b) -> a

 

 

// isSpace :: Char -> Bool

 

 

// length :: [a] -> Int

const length = xs =>

xs.length

) : Infinity;

 

 

// lines :: String -> [String]

 

 

xs

 

 

 

 

 

 

// snd :: (a, b) -> b

 

// span :: (a -> Bool) -> [a] -> ([a], [a])

 

 

 

// tail :: [a] -> [a]

 

// take :: Int -> [a] -> [a]

// take :: Int -> String -> String

xs.slice(0, n)

length: n

}, () => {

const x = xs.next();

return x.done ? [] : [x.value];

}));

 

 

 

};

 

// zipWith :: (a -> b -> c) -> [a] -> [b] -> [c]

 

// MAIN ---

return main();

{{Out}}

|-

|-

|-

|-

|}

 

=={{header|Julia}}==

 

text = """

textplus = text * " Optionally add color to the nodes."

htmlfromdataframe(processtable(textplus))

<h4>A Rosetta Code Nested Table</h4><table style="width:100%" class="wikitable" >

<tr>

 

=={{header|Mathematica}} / {{header|Wolfram Language}}==

Parse the outline to a tree,

measuring the indent of each line,

]

AppendTo[str, "</table>"];

{{out}}

<pre><table style='text-align: center;'>

=={{header|Nim}}==

 

 

const Outline = """Display an outline as a nested table.

nodelists.writeWikiTable()

echo "HTML:"

 

{{out}}

 

=={{header|Perl}}==

 

use strict;

and write out a table with 'colspan' values

either as a wiki table,

{{out}}

<table border=1 cellspacing=0>

=={{header|Phix}}==

Can output in either html or wikitable markup

{{out}}

in html:

=={{header|Python}}==

===Python: Procedural===

 

import itertools

table_format = "wiki"

 

{{out}}

 

 

===Python: Functional===

 

from itertools import chain, cycle, takewhile

# wikiTableFromTree :: [String] -> Tree String -> String

def wikiTableFromTree(colorSwatch):

 

 

 

# -------------- TREE PADDED TO EVEN DEPTH ---------------

 

# paddedTree :: a -> (Int, Node a) -> Node a

where needed.

'''

return go

 

the same color as their non-root ancestor.

'''

 

def go(tree):

 

# ----------------------- GENERIC ------------------------

 

# compose :: ((a -> a), ...) -> (a -> a)

def compose(*fs):

'''Composition, from right to left,

# MAIN ---

if __name__ == '__main__':

{{Out}}

{| class="wikitable" style="text-align: center;"

Strictly speaking, this is not a nested table. It is just a single level table that has some column spans > 1. For an example of using actual nested tables, see the task entry: [[Rosetta_Code/List_authors_of_task_descriptions#Raku|List_authors_of_task_descriptions#Raku]], [[Rosetta_Code/List_authors_of_task_descriptions/Full_list|(and full output)]].

 

Display an outline as a nested table.

Parse the outline to a tree,

}

( $r, $g, $b ).map( ((*+$m) * 255).Int)».base(16).join

 

{{out}}

{{libheader|Wren-dynamic}}

{{libheader|Wren-fmt}}

 

var NNode = Struct.create("NNode", ["name", "children"])

var iNodes2 = makeIndent.call(outline2, 4)

toNest.call(iNodes2, 0, 0, n2)

 

{{out}}

 

=={{header|zkl}}==

var [const] indent=" "*100; // no tabs

 

out.writeln("|}");

out.text

#<<<

"Display an outline as a nested table.

 

rows,cols,title,trees := parseOutline(outlineText);

{{out}}

{| class="wikitable" style="text-align: center;"

 

And the Raku example:

#<<<

"Display an outline as a nested table.

 

rows,cols,title,trees := parseOutline(outlineText);

{{out}}

{| class="wikitable" style="text-align: center;"