shapr

\set howmany 1
SELECT
  genre.name AS genre,
  CASE WHEN length(scrubby.name) > 15 THEN
    substring(scrubby.name FROM 1 FOR 15) || '⋯'
  ELSE
    scrubby.name
  END AS track,
  artist.name AS artist

shapr

module Main where

import System.Environment
import System.IO

main :: IO ()
main = do
    withFile
        "/tmp/stdin.txt"
        AppendMode

shapr

{-# LANGUAGE KindSignatures #-}
{-# LANGUAGE OverloadedStrings #-}

module SkyLine where

import Data.List (groupBy, sort)

{-
  input:
  [left,right,height]

shapr

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ScopedTypeVariables #-}

module Main where

import Control.Concurrent
import Data.Text (Text)
import qualified Data.Text as T
import qualified Data.Text.IO as TIO
import Data.Void

shapr

kali (192.168.1.12) -> www.leastauthority.com (35.198.125.84)                                                                   2023-05-10T09:44:22-0500 
Keys:  Help   Display mode   Restart statistics   Order of fields   quit
                                                                                                               Packets               Pings
 Host                                                                                                        Drop   Rcv    Avg Gmean Jttr Javg Jmax Jint
 1. _gateway                                                                                                  144   249    0.7   0.7  0.0  0.2  0.7  1.9
 2. 100.92.152.2                                                                                              265   128   71.0  29.5  6.8 60.5 3135 2529
    76.29.230.19
 3. po-315-321-rur201.huntsville.al.hunts.comcast.net                                                         264   129   68.8  28.9 10.9 59.6 3034 2482
    76.29.230.19
 4. 68.85.19

shapr

{
  config,
  pkgs,
  callPackage,
  ...
}: {
  imports = [
    <nixpkgs/nixos/modules/virtualisation/openstack-config.nix>
    ./gandicloud.nix

shapr

# Beware! This file is rewritten by htop when settings are changed in the interface.
# The parser is also very primitive, and not human-friendly.
htop_version=3.2.1
config_reader_min_version=3
fields=111 0 48 17 18 38 39 40 2 46 47 49 1
hide_kernel_threads=1
hide_userland_threads=1
shadow_other_users=0
show_thread_names=0
show_program_path=1

shapr

// -*- mode: c++ -*-
// Copyright 2016-2022 Keyboardio, inc. <[email protected]>
// See "LICENSE" for license details

/**
 * These #include directives pull in the Kaleidoscope firmware core,
 * as well as the Kaleidoscope plugins we use in the Model 100's firmware
 */

// The Kaleidoscope core

shapr

-- day 9
day9 :: IO ()
day9 = do
  dt <- getDayInput "9"
  let exDirs = parseCleanDay9 dt
  putStrLn $ "day 1 part 1 " <> (show $ evalDay9 exDirs (scanl' tailFollow (0,0)))
  putStrLn $ "day 1 part 2 " <> (show $ evalDay9 exDirs (oneRope . oneRope . oneRope . oneRope . oneRope . oneRope . oneRope . oneRope . oneRope))
      where oneRope = scanl1 tailFollow

parseCleanDay9 :: Text -> [Direction]

shapr

module Main where

import Core
import System.Directory
import System.FilePath
import System.Process
import Data.Maybe
import Data.List

main :: IO ()