Dragon curve: Difference between revisions

Line 2,439:

<lang javascript>(() => {

'use strict';

// ------------------ DRAGON CURVE -------------------

// dragonCurve :: [[Int]] -> [[Int]]

Line 2,461:

Line 2,463:

// ------------------------TEST------------------------

// ---------------------- TEST -----------------------

// main :: IO ()

const main = () =>

Line 2,475:

Line 2,477:

// ------------------------SVG-------------------------

// ----------------------- SVG -----------------------

// svgFromPointLists :: Int -> Int ->

Line 2,484:

Line 2,486:

polyline = xs =>

`<polyline points="${unwords(concat(xs).map(showJSON))}"/>`,

[x, y, mx, my] = ~~apList~~([minimum, maximum])(

[x, y, mx, my] = ap([minimum, maximum])(

Array.from(unzip(concat(xyss)))

),

Line 2,506:

Line 2,508:

// -----------------GENERIC FUNCTIONS------------------

// ---------------- GENERIC FUNCTIONS ----------------

// Just :: a -> Maybe a

Line 2,539:

Line 2,541:

// ~~apList~~ (<*>) :: [(a -> b)] -> [a] -> [b]

// ap (<*>) :: [(a -> b)] -> [a] -> [b]

const ~~apList~~ = fs =>

const ap = fs =>

// The sequential application of each of a list

// of functions to each of a list of values.

Line 2,613:

Line 2,615:

// iterate :: (a -> a) -> a -> Gen [a]

const iterate = f =>

function*(x) {

function* (x) {

let v = x;

while (true) {