fstamour

-- from https://gist.github.com/anonymous/83b1f8d2da6ee35d172b

import Data.Bits ((.&.), shiftR)
import Data.Char (chr)
import Data.Ratio ((%), Ratio, numerator)
import Data.Word (Word32)

poly :: Ratio Integer -> Ratio Integer
poly x = 
	- 74101463560860539810482394216134472786413399%404009590666424903383979388988167534591844018460526499864038804741201731572423877094984692537474105135297393596654648304117684895744000000000000000000000*x^99

fstamour

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

char * polynomial="-74101463560860539810482394216134472786413399/404009590666424903383979388988167534591844018460526499864038804741201731572423877094984692537474105135297393596654648304117684895744000000000000000000000*x^99 + 1786563401621773217421750502452955853226339781/1943688752347061390850759947022111850270039951356484879070977067483444756705819339975871373032521468004867185688372878439054154137600000000000000000000*x^98 - 27321291157050372775340569532625689973429185264741/12024094960310264981666053243695462339042976739896622019763059664916718201560234437350734896948634081407660523709959770955883479040000000000000000000000*x^97 + 4936870031754926645682423836151042176171669450909/1336493173680525187613977630110369004256312194947800263402124063124652591386915768177479078216982141485276408003996973457735680000000000000000000000*x^96 - 24473118674386691114350902920738421254018653211816783/55093218603941649400531744530105211175454647

fstamour

Backing up and recovering 2FA tokens from FreeOTP

Backing up FreeOTP

Using adb, create a backup of the app using the following command:

adb backup -f freeotp-backup.ab -apk org.fedorahosted.freeotp

fstamour

#!/bin/sh
OUTPUT="sbql"
PRELOADS="alexandria cl-ppcre local-time cffi cl-interpol"
PREUSES="split-sequence anaphora iterate"

# sbcl --script <<EOF
sbcl --no-sysinit --no-userinit --noprint <<EOF
;; load quicklisp (from .sbclrc content added when quicklisp installation)
(let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp"
                                       (user-homedir-pathname))))

fstamour

$ ruby unique-unordered-pairing-function.rb

Cantor Pairing Function
-----------------------

<x, y> = (x + y) * (x + y + 1) / 2 + y

       0     1     2     3     4     5     6     7     8     9    10    11    12    13
   + ——— + ——— + ——— + ——— + ——— + ——— + ——— + ——— + ——— + ——— + ——— + ——— + ——— + ——— +
 0 |   0 |   1 |   3 |   6 |  10 |  15 |  21 |  28 |  36 |  45 |  55 |  66 |  78 |  91 |

fstamour

58 bytes of CSS to look great nearly everywhere

When making this website, i wanted a simple, reasonable way to make it look good on most displays. Not counting any minimization techniques, the following 58 bytes worked well for me:

main {
  max-width: 38rem;
  padding: 2rem;
  margin: auto;
}

fstamour

https://discord.com/channels/297478281278652417/297478350145060875/1018545388929691729

janet user: I think since common lisp is designed from the perspective of an individual programmer

I don't think that it was explicitly "designed from the perspective of an individual programmer". I think the goal of making a standard was to make it easier to have portable code. Now, did each individual on the committee tried to build the standard while keeping in mind the perspective of lone dev or that of a teams... I don't know.

The only thing that makes me think that it was "from the perspective of an individual programmer" is that nothing prevents you from screwing another person's work if you're both working on the same image at the same time. (Maybe there was something in old lisp machines, but there's nothing in the CL standard AFAIK).

janet user: reinvention is just baked into the culture to a degree outside of implementations which i dont think count; collaboration is kinda limited

fstamour

Org-mode Org-mode Reference Card

Org mode reference card

Created from the plain text reference card on orgmode.org Download this file, and open it in Emacs org-mode!

fstamour

#!/usr/bin/env python3
# -*- coding: utf-8 -*-

# Author: Damien Garaud
# Date: 2014-2015
# License: Simplified BSD

"""Allow you to pipe command results into an Emacs buffer. Suppose you have an
Emacs server since you launch 'emacsclient'.

fstamour

file gen:

#!/usr/bin/env -S awk -f
#
# Usage: ./gen misspells-fr.csv > user/misspells-fr.yml

BEGIN {
  FS=","
  print "parent: default"
 print "matches: "