ryukinix
/ benford.lisp
Created Aug 15, 2020
View benford.lisp
| ;; pseudo-random numbers don't follows Benford's Law. | |
| (ql:quickload :cl-spark) | |
| (defun random-numbers (max count) | |
| (loop repeat count | |
| for n := (random max) | |
| when (plusp n) | |
| collect n)) |
ryukinix
/ *scratch*.el
Created Jul 23, 2020
View *scratch*.el
| ~/.wine/drive_c/Program Files (x86)/EA GAMES/Need For Speed Underground | |
| ❯ wine Speed.exe | |
| 01e8:fixme:ntdll:NtQuerySystemInformation info_class SYSTEM_PERFORMANCE_INFORMATION | |
| INTEL-MESA: warning: Ivy Bridge Vulkan support is incomplete | |
| 01e8:fixme:d3d9:Direct3DShaderValidatorCreate9 Returning stub validator 7EB6F364. | |
| 01e8:fixme:d3d9:Direct3DShaderValidatorCreate9 Returning stub validator 7EB6F364. | |
| 01e8:fixme:d3d9:Direct3DShaderValidatorCreate9 Returning stub validator 7EB6F364. | |
| 01e8:fixme:d3d9:Direct3DShaderValidatorCreate9 Returning stub validator 7EB6F364. | |
| 01e8:fixme:d3d9:Direct3DShaderValidatorCreate9 Returning stub validator 7EB6F364. | |
| 01e8:fixme:d3d9:Direct3DShaderValidatorCreate9 Returning stub validator 7EB6F364. |
View log.txt
| <lerax> hey, can someone point to me a good and fresh SDL2 + C++ guide? I only | |
| know from lazy foo. Is there something better? | |
| <pulse> lazyfoo gives you most of what you need tho [07:47] | |
| <pulse> when i was learning SDL i just went through each tutorial, making my | |
| own source as i went [07:50] | |
| <pulse> and now i have all those examples in an executable format with a clear | |
| source along with it [07:51] | |
| <pulse> so i'd recommend just doing that | |
| <pulse> the good thing about those tutorials is that every one of them is | |
| concise and gets straight to the point |
View find-executable.lisp
| (defun executables () | |
| (loop with path = (uiop:getenv "PATH") | |
| for p in (uiop:split-string path :separator ":") | |
| for dir = (probe-file p) | |
| when (uiop:directory-exists-p dir) | |
| append (uiop:directory-files dir))) | |
| (defun find-executable (name) | |
| (find name (executables) | |
| :test #'equalp |
View sum-args.c
| /* | |
| * Manoel Vilela © 2019 | |
| * | |
| * Why this? Just because I was bored | |
| * Date: Tue 12 Mar 2019 12:21:48 AM -03 | |
| */ | |
| #include <stdio.h> | |
| #include <stdlib.h> |
ryukinix
/ *scratch*.el
Created Feb 28, 2019
View *scratch*.el
| ;; ▓█████ ███▄ ▄███▓ ▄▄▄ ▄████▄ ██████ | |
| ;; ▓█ ▀ ▓██▒▀█▀ ██▒▒████▄ ▒██▀ ▀█ ▒██ ▒ | |
| ;; ▒███ ▓██ ▓██░▒██ ▀█▄ ▒▓█ ▄ ░ ▓██▄ | |
| ;; ▒▓█ ▄ ▒██ ▒██ ░██▄▄▄▄██ ▒▓▓▄ ▄██▒ ▒ ██▒ | |
| ;; ░▒████▒▒██▒ ░██▒ ▓█ ▓██▒▒ ▓███▀ ░▒██████▒▒ | |
| ;; ░░ ▒░ ░░ ▒░ ░ ░ ▒▒ ▓▒█░░ ░▒ ▒ ░▒ ▒▓▒ ▒ ░ | |
| ;; ░ ░ ░░ ░ ░ ▒ ▒▒ ░ ░ ▒ ░ ░▒ ░ ░ | |
| ;; ░ ░ ░ ░ ▒ ░ ░ ░ ░ | |
| ;; ░ ░ ░ ░ ░░ ░ ░ |
View test.el
| (require 'package) | |
| (setq packages-archives '("melpa" . "https://melpa.org/packages/")) | |
| (defvar *my-packages* '(company | |
| slime-company | |
| doom-themes | |
| powerline | |
| airline-themes) | |
| "My wonderful packages") |
View quickproject-cli.lisp
| #!/usr/bin/sbcl --script | |
| #| | |
| Manoel Vilela © 2018 | |
| This script helps me building a simple ASDF project for Common Lisp | |
| based in the library quickproject. | |
| |# |
View lock.sh
| #!/bin/sh | |
| # | |
| # /lib/elogind/system-sleep/lock.sh | |
| # Lock before suspend integration with elogind | |
| username=lerax | |
| userhome=/home/$username | |
| export XAUTHORITY="$userhome/.Xauthority" | |
| export DISPLAY=":0.0" |
View lock.sh
| #!/bin/sh | |
| # | |
| # /lib/elogind/system-sleep/lock.sh | |
| # Lock before suspend integration with elogind | |
| username=lerax | |
| userhome=/home/$username | |
| export XAUTHORITY="$userhome/.Xauthority" | |
| export DISPLAY=":0.0" |
NewerOlder