phil8192

require 'sinatra'
require 'json'

post '/*' do
  puts JSON.pretty_generate(JSON.parse(request.body.read))
  status 201
end

phil8192

# 255 tints of red
red_tint <- function(v) as.hexmode(bitwOr(0xff0000, bitwOr(bitwShiftL(v, 8), v)))

cols <- paste0("#", red_tint(1:255))
barplot(255:1, col=cols, border=cols)