Skip to content

Instantly share code, notes, and snippets.

View GlassGhost's full-sized avatar

GlassGhost GlassGhost

View GitHub Profile
@GlassGhost
GlassGhost / automaton.scm
Last active November 1, 2021 14:26
gsi v4.9.3 owner@localhost:~/sync/Scripts/Lambda$ gsi ./automaton.scm *** ERROR IN "automaton.scm"@21.30 -- Ill-formed selector list
;#!/usr/bin/env scheme-r5rs
;https://github.com/carld/automata-via-macros
(define-syntax automaton ;https://cs.brown.edu/~sk/Publications/Talks/SwineBeforePerl/
(syntax-rules (:)
[(_ init-state
(state : response ...) ...)
(let-syntax
([process-state
(syntax-rules (accept ->)
[(_ accept)
@echo off
title Activate Windows 10 ALL versions for FREE!&cls&echo ============================================================================&echo #Project: Activating Microsoft software products for FREE without software&echo ============================================================================&echo.&echo #Supported products:&echo - Windows 10 Home&echo - Windows 10 Home N&echo - Windows 10 Home Single Language&echo - Windows 10 Home Country Specific&echo - Windows 10 Professional&echo - Windows 10 Professional N&echo - Windows 10 Education N&echo - Windows 10 Education N&echo - Windows 10 Enterprise&echo - Windows 10 Enterprise N&echo - Windows 10 Enterprise LTSB&echo - Windows 10 Enterprise LTSB N&echo.&echo.&echo ============================================================================&echo Activating your Windows...&cscript //nologo slmgr.vbs /upk >nul&wmic os | findstr /I "enterprise" >nul
if %errorlevel%==0 (cscript //nologo slmgr.vbs /ipk NPPR9-FWDCX-D2C8J-H872K-2YT43 >nul&cscript //nolog
@GlassGhost
GlassGhost / LC.sh
Last active August 29, 2015 14:26
Generate LC-min.js Binary Lambda Calculus Interpreter
#!/bin/bash
ISO_8601=`date -u "+%FT%TZ"` #ISO 8601 Script Start UTC Time
utc=`date -u "+%Y.%m.%dT%H.%M.%SZ"` #UTC Time (filename safe)
owd="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )" #Path to THIS script.
# Copyright 2015 Roy Pfund
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
@GlassGhost
GlassGhost / format.sh
Last active August 29, 2015 14:17
format
#!/bin/bash
ISO_8601=`date -u "+%FT%TZ"` #ISO 8601 Script Start UTC Time
utc=`date -u "+%Y.%m.%dT%H.%M.%SZ"` #UTC Time (filename safe)
owd="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )" #Path to THIS script.
# Copyright 2013 Roy Pfund
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
' VBS Script to get the Windows(R) 7 Product Key from a PC's registry.
'
' Save the VBScript as "getWin7Key.vbs" somewhere on your Windows7 PC.
' Now, when you double-click the local script file an alertbox pops up
' displaying the product key stored in the machine's Windows registry.
'
'http://www.howtogeek.com/124286/how-to-uninstall-your-windows-product-key-before-you-sell-your-pc/
'http://goo.gl/x3eO0x
Set WshShell = WScript.CreateObject("WScript.Shell")
@GlassGhost
GlassGhost / DRIVERS
Last active August 29, 2015 14:17 — forked from anonymous/lshw.txt
Chipset:
http://support.amd.com/en-us/download/mobile?os=Windows%207%20-%2064
Graphics:
http://support.amd.com/en-us/download/mobile?os=Windows%207%20-%2064
Touchpad:
http://www.synaptics.com/en/drivers.php
RTL8188EE Wireless Network Adapter:
@GlassGhost
GlassGhost / sha12.scm
Last active August 29, 2015 14:10 — forked from cky/sha12.scm
;;;; SHA-1 and SHA-2 implementations.
;;;; Uses R7RS bytevector and byte I/O interfaces.
;;;; Requires SRFIs 1, 26, 43, and 60.
;;; Auxiliary definitions to avoid having to use giant tables of constants.
(define primes80 '(2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73
79 83 89 97 101 103 107 109 113 127 131 137 139 149 151 157
163 167 173 179 181 191 193 197 199 211 223 227 229 233 239
241 251 257 263 269 271 277 281 283 293 307 311 313 317 331
@GlassGhost
GlassGhost / derive.ss
Created October 27, 2014 02:56
SICP Simplifier
#!/usr/bin/env racket
#lang r5rs
;#!/usr/bin/env scheme-r5rs
;R5RS: goo.gl/z6HMWx SICP-Book: goo.gl/AmyAhS SICP-Video-Lectures: goo.gl/3uwWXK
(define (display-all . vs) (for-each display vs))
;______________________________Work in progress to get SICP code to work in R5RS
;provides the following for compatibilty with SICP
;λ user-initial-environment mapcar atom? true false inc dec nil identity
;the-empty-stream stream-null? cons-stream
(define-syntax λ (syntax-rules () ((_ param body ...) (lambda param body ...))))
@GlassGhost
GlassGhost / derives.ss
Created October 24, 2014 04:33
The simplifier from the 1986 SICP Video Lecture 4a
#!/usr/bin/env racket
#lang planet neil/sicp
;SICP lang module documentation http://goo.gl/BTQetA
(define mapcar map)(define (atom? x) (not (pair? x)))(define user-initial-environment (scheme-report-environment 5))
;SICP Book: http://goo.gl/AmyAhS SICP Video Lectures: http://goo.gl/3uwWXK
(define (display-all . vs) (for-each display vs))
;_______________________________________________________________________________
;work in progress to get same affect as the above for other schemes like gambit
;#lang r5rs
;(define mapcar map)(define (atom? x) (not (pair? x)))(define user-initial-environment (scheme-report-environment 5))
@GlassGhost
GlassGhost / test.html
Last active August 29, 2015 14:06
test.html
<!doctype html><html lang="en"><head><meta charset="utf-8"><title>test</title>
<!--______________________________________________Built-In Scripts and Styles-->
<style type="text/css"></style>
<script language=javascript type='text/javascript'></script>
<!--________________________________________________Scripts and Styles by URL-->
<link rel="stylesheet" type="text/css" href="./katex/katex.min.css">
<script src="./katex/katex.min.js" type="text/javascript"></script>
<!--____________________________________________________________--></head><body>
<tex>c = \pm\sqrt{a^2 + b^2}</tex><br/>