Skip to content

Instantly share code, notes, and snippets.

View DeTeam's full-sized avatar
🍪
le cookie

Timur Amirov DeTeam

🍪
le cookie
61 followers · 35 following
View GitHub Profile
@DeTeam
DeTeam / maybe-applicative-functor.js
Last active August 29, 2015 13:57
Full of fun Maybe ap functor in JS.
// The Type
function Maybe(){};
// `Nothing` Type Constructor
function Nothing() {
this.value = null;
};
// `Just` Type Constructor
function Just(value) {
@DeTeam
DeTeam / buy-stuff-state.js
Created March 30, 2014 18:48
Doing some functional stuff with state data structure. Here's an example of usage.
var housePrice = 15000;
var buyCoke = setupPrice('coke', 50);
var buyHotDog = setupPrice('hot-dog', 150);
var buyHouse = setupPrice('house', housePrice);
var salary = 500;
var getPaid = modifyState(sum.bind(null, salary));
var saveForHouse = replicate( Math.floor(housePrice / salary), getPaid);
@DeTeam
DeTeam / state-osci.hs
Created May 19, 2014 08:22
State-based oscilator in haskell
module Main where
import Control.Monad.State.Lazy
step start stop (currentValue, modifier) = (currentValue, newState)
where reverseModifier = (currentValue + modifier > stop) || (currentValue + modifier < start)
modifier' = if reverseModifier
then
-modifier
else
@DeTeam
DeTeam / gist:7744fadca4b149572819
Created June 16, 2014 12:42
<!doctype html>
<html>
<head>
<!-- ALL OTHER FILES -->
<style>
.green {
color: green;
}
</style>
<script src="jquery-1.11.1.js"></script>
@DeTeam
DeTeam / StateSpendings.hs
Created November 26, 2014 16:57
module Main where
import Control.Monad.State (StateT(..), runStateT, modify, get)
import Control.Monad.Reader (ReaderT(..), runReaderT, ask)
import Control.Monad.Trans.Class (lift)
import Control.Monad.IO.Class (liftIO)
type MySuperMonad = ReaderT String (StateT Int IO)
@DeTeam
DeTeam / Shoes_base_app.rb
Created May 19, 2009 13:23
Shoes.app(:title => 'FTP File Uploader', :width => 500, :height => 400, :resizable => false) do
require 'net/ftp'
background gradient rgb(255, 255, 255), rgb(150, 150, 150), :angle => 45
stack :margin => 20 do
end
end
@DeTeam
DeTeam / Shoes_next_step.rb
Created May 19, 2009 13:33
Shoes.app(:title => 'FTP File Uploader', :width => 500, :height => 400, :resizable => false) do
require 'net/ftp'
background gradient rgb(255, 255, 255), rgb(150, 150, 150), :angle => 45
stack :margin => 20 do
caption 'FTP File Uploader'
flow :margin => 3 do
@DeTeam
DeTeam / Shoes_ftp_uploader.rb
Created May 19, 2009 13:41
Shoes.app(:title => 'FTP File Uploader', :width => 500, :height => 400, :resizable => false) do
require 'net/ftp'
background gradient rgb(255, 255, 255), rgb(150, 150, 150), :angle => 45
stack :margin => 20 do
caption 'FTP File Uploader'
flow :margin => 3 do
@DeTeam
DeTeam / Problem22.hs
Created July 25, 2011 21:42
import Data.List
import Data.List.Split
import Data.Maybe
import Data.Char
{-
http://projecteuler.net/index.php?section=problems&id=22
Using names.txt (right click and 'Save Link/Target As...'), a 46K text file containing over five-thousand first names, begin by sorting it into alphabetical order. Then working out the alphabetical value for each name, multiply this value by its alphabetical position in the list to obtain a name score.
@DeTeam
DeTeam / gist:1952199
Created March 1, 2012 18:56
tmp = Tempfile.new("out")
tmp << "things"
tmp.close
puts File.read(tmp.path)