tallpeak

// rewrite of Haskell to C
// from https://github.com/mitsuji/c0ffee

// Find words like "coffee" (#C0FFEE) which can be written as hexadecimal number.
// I made a couple of careless pointer errors
// Proof I should use Haskell more, and C less?
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

tallpeak

~/src/postgresql-12.2/src/tutorial# cat upc_checksum.c

#include "postgres.h"
#include <string.h>
#include "fmgr.h"
#include "utils/geo_decls.h"

PG_MODULE_MAGIC;

/* by value */

tallpeak

using Printf
using Formatting

d=Dict{String, Integer}()
for (root, dirs, files) in walkdir(".")
    for file in files
        ff=joinpath(root, file)
	fs=filesize(ff)
	ar=rsplit(file,".";limit=2)
	ext=pop!(ar)

tallpeak

// compare.fsx

// for each file, get name-only and hash.
// eliminate files with matching hashes
// display differences for files with the same name-only
// display files not found in destination by name-only
// display files not found in source by name-only
let srcDir = @"C:\temp\xxxx_ProductionInitializeDeploymentScripts"
let destDir = @"C:\Users\[myusername]\Source\Repos\[DH-ODP]\Main\Scripts"
open System

tallpeak

import DataFrames, XLSX

getsqlpass() = string(strip( open(h->read(h,String), "/home/aaron/secrets/sqlpassword") ,['\r','\n',' ','\t']))
import ODBC
coals = [("CIMS",1016),("AIMS",1019)] 
asv = ["A","v"]
yr = 20
for (coalName,coalNum) in coals 
    for aors in asv
        tn = string("top_", coalName, "_sales_", aors)

tallpeak

// edit these lines for your liking: 
let servers = ["server1"; "server2"]
let baseDir = @"c:\temp"

let getConnectionString (serverName:string) = 
    sprintf @"Data Source=%s;Initial Catalog=master;Integrated Security=True" serverName

#I """../exportProcs\packages\System.Data.SqlClient\lib\net461"""
#r """System.Data.SqlClient.dll"""

tallpeak

-- 1) Upgraded to Data.Time 2) Added some timings. 3) 10 million. 
-- Otherwise unchanged
-- Result: 14 seconds versus 70 seconds for List.sort, 2.1 GB ram used

-- google: haskell etl
-- > https://www.reddit.com/r/ocaml/comments/3ifwe9/what_are_ocamlers_critiques_of_haskell/
-- > https://www.reddit.com/r/haskell/comments/3inqzk/an_optimal_haskell_quicksort/
-- > http://flyingfrogblog.blogspot.com/2010/08/parallel-generic-quicksort-in-haskell.html
{-# LANGUAGE FlexibleContexts #-}
-- import System.Time

tallpeak

; find the combinations of letters which have the most anagrams
; word list is from 
; https://raw.githubusercontent.com/dolph/dictionary/master/enable1.txt  
(ns anagrams-sort
  (:require [clojure.string :as cs]) )
(def words
  (let [ home     (System/getenv "HOME")
         filename (str home "/Downloads/enable1.txt")
         words    (->> filename slurp cs/split-lines)
        ] words )

tallpeak

-- find the combinations of letters which have the most anagrams
import qualified Data.Map as M
import Data.List(words,sortBy,sort,groupBy,map,intercalate)
import Text.Printf(printf)
import System.Environment(getEnv)

type Anagrams = (Int,String,[String])

printer :: Anagrams -> IO ()
printer (len,sortword,words) = putStrLn $

tallpeak

-- based on 
-- https://stackoverflow.com/questions/4522387/how-can-i-emulate-gos-channels-with-haskell
-- but this version encodes end-of-stream on the communication channel, as a Nothing

-- I could not get Intero or ghc to accept a type-annotation for the helper function,
-- even using the exact inferred type from Intero.

import Control.Monad (forM_)

import Control.Concurrent (forkIO, ThreadId, threadDelay)