This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
//#include <fstream> | |
#include <iomanip> | |
#include <iostream> | |
#include <random> | |
#include <map> | |
// The Diablo RNG is a Linear Congruential Generator using Borland C++ constants. | |
// These constants result in a chain across the entire interval [0, std::numeric_limits<uint32_t>::max()] | |
constexpr uint32_t multiplier = 0x015A4E35; //22695477 | |
constexpr uint32_t increment = 1; // An increment of 0 would mean that the generator can never reach 0 from a non-zero |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// ==UserScript== | |
// @name Baseball Tips Tracker | |
// @namespace https://thelettereph.com/ | |
// @version 1.0 | |
// @description Tracks baseball earnings and owed tips in OBL | |
// @author ephphatha | |
// @match *://politicsandwar.com/* | |
// @grant none | |
// ==/UserScript== |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#! /usr/bin/perl | |
use strict; | |
use warnings; | |
use feature qw(say); | |
use IO::Select; | |
use IO::Pipe; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
$images = Get-ChildItem -Name | Where-Object { $_ -match ".png$" } | |
if ($images) { | |
foreach ($image in $images) { | |
$gpstags = identify -format "%[EXIF:GPSL*]" $image | |
$latitude = 1 | |
$longitude = 1 | |
foreach ($tag in $gpstags) { | |
$tokens = $tag.split('=') |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#! /usr/bin/perl -w | |
use strict; | |
use feature qw(say); | |
opendir my($dh), '/cygdrive/s/Videos/Movies' or die "Couldn't open Movies directory: $!"; | |
my @files = grep(!/^\./, readdir $dh); #ignore dotfiles/pseudodirs | |
closedir $dh; |