View benford.lisp
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
;; 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)) |
View *scratch*.el
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
~/.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
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
<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
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
(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
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
/* | |
* 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> |
View *scratch*.el
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
;; ▓█████ ███▄ ▄███▓ ▄▄▄ ▄████▄ ██████ | |
;; ▓█ ▀ ▓██▒▀█▀ ██▒▒████▄ ▒██▀ ▀█ ▒██ ▒ | |
;; ▒███ ▓██ ▓██░▒██ ▀█▄ ▒▓█ ▄ ░ ▓██▄ | |
;; ▒▓█ ▄ ▒██ ▒██ ░██▄▄▄▄██ ▒▓▓▄ ▄██▒ ▒ ██▒ | |
;; ░▒████▒▒██▒ ░██▒ ▓█ ▓██▒▒ ▓███▀ ░▒██████▒▒ | |
;; ░░ ▒░ ░░ ▒░ ░ ░ ▒▒ ▓▒█░░ ░▒ ▒ ░▒ ▒▓▒ ▒ ░ | |
;; ░ ░ ░░ ░ ░ ▒ ▒▒ ░ ░ ▒ ░ ░▒ ░ ░ | |
;; ░ ░ ░ ░ ▒ ░ ░ ░ ░ | |
;; ░ ░ ░ ░ ░░ ░ ░ |
View test.el
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
(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
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/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
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
#!/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