tallpeak

// give.a.dollar.rs, from julia, from tiny-c:
// http://primepuzzle.com/not.just.tiny.c/give.a.dollar.try.tc?fbclid=IwAR2p5YBQgJJDY3-g3lN3rRHw7v7cA0VB0BcNWv4dHybH-XCCgxQQIrbF6sY
// ref: https://www.facebook.com/groups/299317782048/posts/10160467717107049/
use std::io;
use rand::prelude::*;
use timed::timed; //https://y2kappa.github.io/blog/posts/timing-your-function-execution/

fn gn() -> i32 {
    let mut input = String::new();
    match io::stdin().read_line(&mut input) {

tallpeak

# give.a.dollar.jl

# from tc:
# http://primepuzzle.com/not.just.tiny.c/give.a.dollar.try.tc?fbclid=IwAR2p5YBQgJJDY3-g3lN3rRHw7v7cA0VB0BcNWv4dHybH-XCCgxQQIrbF6sY

# ref: https://www.facebook.com/groups/299317782048/posts/10160467717107049/
# give.a.dollar.tc - lrb
# tc give.a.dollar.tc -r "give(lim,sd)"
using Random
using Printf

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

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

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

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

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

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

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

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