Hugoberry

(num as number)=>
List.Last(
    List.Generate(
           () =>[reminder = num,
                 binString= Number.ToText(Number.BitwiseAnd(reminder,1))],
           each [reminder]> 0,
           each [reminder = Number.BitwiseShiftRight([reminder],1),
                 binString= Number.ToText(Number.BitwiseAnd(reminder,1))&[binString]],
           each [binString]
        )

Hugoberry

{"Archimedean spiral",
 "Archimedes’ spiral",
 "astroid",
 "astroid pedal curve",
 "bifoliate",
 "bifolium",
 "butterfly catastrophe curve", 
 "second butterfly curve",
 "cardioid",
 "cardioid pedal curve",

Hugoberry

using Microsoft.SqlServer.TransactSql.ScriptDom;
using System;
using System.Collections.Generic;
using System.IO;
using System.Linq;
using System.Text;
using System.Threading.Tasks;

namespace TransactSqlScriptDomTest
{

Hugoberry

# Committing changes to a repo via the Github API is not entirely trivial.
# The five-step process is outlined here:
#   http://developer.github.com/v3/git/
#
# Matt Swanson wrote a blog post translating the above steps into actual API calls:
#   http://swanson.github.com/blog/2011/07/23/digging-around-the-github-api-take-2.html
# 
# I was not able to find sample code for actually doing this in Ruby, 
# either via the HTTP API or any of the gems that wrap the API.
# So in the hopes it will help others, here is a simple function to 

Hugoberry

let func =  
 (SelectionList as list, ListOfPositions as list, optional StartWithOne as number) =>
let

selectionList = List.Buffer(SelectionList),
listOfPositions = List.Buffer(ListOfPositions),
StartPosition = if StartWithOne = 1 then -1 else 0,

Result = List.Transform(ListOfPositions, each SelectionList{_ + StartPosition}?)
in

Hugoberry

let
    Value.FixType = (value, optional depth) =>
        let
            nextDepth = if depth = null then 3 else depth - 1,
            result = if depth = 0 then null
                else if value is type then TextType(value)
                else if value is table then Table.TransformColumns(value, {}, @Value.FixType)
                else if value is list then List.Transform(value, each @Value.FixType(_, nextDepth))
                else if value is record then
                    Record.FromList(List.Transform(Record.ToList(value), each @Value.FixType(_, nextDepth)), Record.FieldNames(value))

Hugoberry

Sparkline Line = 

// Static line color
VAR LineColor = "#01B8AA"

// "Date" field used in this example along the X axis
VAR XMinDate = MIN('Table'[Date])
VAR XMaxDate = MAX('Table'[Date])

// Obtain overall min and overall max measure values when evaluated for each date

Hugoberry

Rough draft of this chart.

We started out with a SVG animation, tried out Elijah's canvas sankey particles and ended up rewriting in regl to get more dots on the screen.

The final version gets better performance by passing in array of attibutes to the vertex shader - I'm not sure why that is.

Update: Ricky Reusser points out that I was creating a new array of points every frame with:

attributes: {x: () => data.map(d => d.x)}

Hugoberry

border: no
license: Apache-2.0

Hugoberry

D:\www\apache-2.4.25\bin>ab.exe -n 10000 -c 10 http://localhost:8080/
This is ApacheBench, Version 2.3 <$Revision: 1757674 $>
Copyright 1996 Adam Twiss, Zeus Technology Ltd, http://www.zeustech.net/
Licensed to The Apache Software Foundation, http://www.apache.org/

Benchmarking localhost (be patient)

Server Software:
Server Hostname:        localhost
Server Port:            8080