Gabriel Garcia Torrico Garciat

Garciat / HM.hs

Created February 13, 2018 20:01

	{-# LANGUAGE TupleSections #-}

	import Control.Monad.State (State, evalState, get, gets, modify, put)
	import Data.Function (on)
	import Data.List (unionBy)
	import Data.Map (Map)
	import Data.Maybe (fromMaybe)

	import qualified Data.Map as Map

Garciat / fireworks.html

Last active January 31, 2025 23:21

Fireworks // Draws very simple random particle-based fireworks on the screen.

	<!DOCTYPE html>
	<html>
	<head>
	<title>Fireworks</title>
	<style>html,body{margin:0;height:100%;}</style>
	</head>
	<body>
	<script defer>
	const SCRW = document.body.clientWidth;
	const SCRH = document.body.clientHeight;

Garciat / fibo.py

Last active January 20, 2018 15:05

Garciat / ondulator.html

Last active January 31, 2025 23:23

Ondulator // Simulates a hypnotizing animation I saw once, somewhere. Click to change the pattern.

	<html lang="en">
	<head>
	<meta charset="UTF-8">
	<meta name="viewport" content="width=device-width, initial-scale=1.0">
	<meta http-equiv="X-UA-Compatible" content="ie=edge">
	<title>Ondulator</title>

	<style>html,body{margin:0;height:100%;}</style>

	<script>

Garciat / Fruits.hs

Last active August 10, 2017 17:37

	import Data.SBV

	fruits :: SInteger -> SInteger -> SInteger -> SBool
	fruits a b c = equation &&& positive
	where
	x = sFromIntegral a :: SReal
	y = sFromIntegral b :: SReal
	z = sFromIntegral c :: SReal

	equation = x / (y + z) + y / (x + z) + z / (x + y) .== 4

Garciat / Circle.hs

Last active September 14, 2017 22:44

	import Control.Monad
	import Math.NumberTheory.Logarithms (integerLog2)

	simulate :: Integer -> Integer
	simulate n = head (go [1..n])
	where
	go [x] = [x]
	go (x1:x2:xs) = go (xs ++ [x1])

Garciat / out_of_process.py

Created July 24, 2017 16:04

	def out_of_process(func):
	from types import GeneratorType
	GENERATOR = b'#GENERATOR#'
	DONE = b'#DONE#'

	def runner(conn, args, *kwargs):
	return_value = func(args, *kwargs)
	if isinstance(return_value, GeneratorType):
	conn.send(GENERATOR)
	for val in return_value:

Garciat / wrap_wrap.cpp

Created July 13, 2017 22:24

	#include <type_traits>

	template <typename T>
	struct wrap;

	template <typename T>
	constexpr auto is_wrap_v = false;

	template <typename T>
	constexpr auto is_wrap_v<wrap<T>> = true;

Garciat / JavaStringMemchr.java

Created April 29, 2017 12:21

	import com.sun.jna.Library;
	import com.sun.jna.Native;
	import com.sun.jna.Pointer;
	import sun.misc.Unsafe;

	import java.lang.reflect.Field;

	public class Program {

	private static final Unsafe UNSAFE;

Garciat / novice-tuple.cpp

Last active October 3, 2016 09:00

	#include <utility>
	#include <type_traits>

	template<typename T>
	struct identity { using type = T; };

	template<std::size_t I, typename... Ts>
	struct nth_type;

	template<typename T, typename... Ts>