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

// 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

#!/usr/bin/python3
import gzip
import glob
import psycopg2
import pathlib
import time
import os
pgpass = open(os.path.expanduser("~/secrets/pgpass.txt"), "r").read()
files = []
p = os.path.expanduser("~/") # = path; add Downloads/ if necessary

tallpeak

-- ff is our foldingfunction
-- (c,s) is the accumulator argument, which consists of an Int and a String
-- c accumulates bits when 0 or 1 is encountered
-- when 8 bits are accumulated, they are prepended to the string s
-- ch is the next character being passed from fold.
ff (c,s) ch = 
    if ch=='0' || ch=='1' then
        let c2=c*2+(fromEnum ch - 48) in
        if c2>255 then (1,toEnum(c2-256):s) 
                  else (c2,s)

tallpeak

import zio.App
import zio.console._

object HelloWorld extends App {
  def decodeBindigits(bindigits : String) : String = {
    var decoded = ""
    var c = 1
    for (ch <- bindigits) {
      if (ch == '0' || ch == '1') {
        c = c + c + (ch & 1)

tallpeak

// from morse.tc - 9/29/2012, 7/20/19, 8/21,22/21 - tag, sbg, lrb
#include <string.h>
#include <stdio.h>

// https://kb8ojh.net/msp430/morse_encoding.html
#define NUL 0
//#define FULLTABLE
const unsigned char morse_ascii[] = {
#ifdef FULLTABLE
     NUL,  NUL,  NUL,  NUL,

tallpeak

// Problem: iPhone created some files that are all 0s (NUL bytes)
// Solution: chksum each file, delete those which are all 0
// eg: 
// cd "/Users/aaron/Pictures/Photos Library.photoslibrary/originals"
// find . -name "*.jp*g" -exec sh -c 'cat {} | chksum ; if [ $? -eq 0 ]; then echo {}; rm {} ; fi' \;                                                      

#include <stdio.h>
#include <stdlib.h>

int main()

tallpeak

import java.io.*;
import java.nio.charset.StandardCharsets;
import java.util.ArrayList;
import java.util.Calendar;
import java.util.zip.GZIPInputStream;

public final class Superfile {
    public static String SuperfileToTSV(String inputFileName, String outputFileName) {
        try {
            FileInputStream instream = new FileInputStream(inputFileName);

tallpeak

// fixedWidthToCSV
// output is short by 545 lines
// wc c:\Users\tallp\Downloads\SFA8 c:\temp\sfa8.txt
//   1167801  12474922 411065952 c:\Users\tallp\Downloads\SFA8
//   1167256  40205289 449393560 c:\temp\sfa8.txt
//   2335057  52680211 860459512 total
// https://www.youtube.com/watch?v=lLWchWTUFOQ
// Ryan Levick
 // oxide.computer 

tallpeak

module Pangram (isPangram) where

import Data.Char
import Data.Bits 

charToBit :: Char -> Int
charToBit c = let bit = (fromEnum c .|. 32) - 97 in 
              if bit >=0 && bit < 26 then 2 ^ bit else 0

bitsum :: String -> Int