Skip to content

Instantly share code, notes, and snippets.

View doivosevic's full-sized avatar

doivos doivosevic

View GitHub Profile
module Main where
--import Control.Monad
--import Data.Maybe
--import qualified Irg.Matrix as M
--import qualified Irg.Vector as V
import Data.List (sort,unfoldr)
import qualified Graphics.GL.Compatibility33 as GL
import qualified Graphics.UI.GLUT as GLUT
module Main where
import Control.Monad
import Data.Maybe
--import qualified Irg.Matrix as M
--import qualified Irg.Vector as V
import qualified Graphics.GL.Compatibility33 as GL
import qualified Graphics.UI.GLUT as GLUT
module Main where
import Control.Monad
import Data.Maybe
--import qualified Irg.Matrix as M
--import qualified Irg.Vector as V
import qualified Graphics.GL.Compatibility33 as GL
import qualified Graphics.UI.GLUT as GLUT
"use strict";
angular.module("Main").directive("activitycalendar", function () {
return {
link: function (scope, elm) {
var $el = angular.element(elm);
function refreshCalendar() {
var curCalView = $el.fullCalendar("getView");
var moment = null;
function getProjectsTasksTicketsJobTypesLoccosEvents() {
console.log("getProjectsTasksTicketsJobTypesLoccosEvents");
var executionCounterGet = -1;
function nextGet() {
if (executionCounterGet >= executionOrderGet.length - 1) return;
executionCounterGet++;
executionOrderGet[executionCounterGet]();
return;
}
@doivosevic
doivosevic / my conversion
Created March 18, 2015 13:54
png confusion
8950 4e47 0d0a 1a0a 0000 000d 4948 4452
0000 0055 0000 0055 0806 0000 0038 f5a8
5a00 0000 0173 5247 4200 aece 1ce9 0000
0004 6741 4d41 0000 b18f 0bfc 6105 0000
0009 7048 5973 0000 0ec3 0000 0ec3 01c7
6fa8 6400 0004 a549 4441 5478 5eed 90d1
6e24 390c c4ee ff7f 3ae7 34fa 41a1 0bcd
d1d8 4e36 d825 c031 a02a a983 fc37 f8f8
4e89 e564 b57f dafb 9b39 3c25 b19c acf6
4f7b 7f33 87a7 2496 93d5 fe69 ef6f e6f0
import Control.Monad
import Control.Concurrent
import System.Random
import System.Environment
import Data.List
import Data.Maybe
sec :: Int
sec = 1000000
parseIf :: Parser Statement
parseIf = do
spaces
string "if "
spaces
expr <- expression
spaces
string "then "
st <- statement
return $ If expr st Nothing
parseIf :: Parser Statement
parseIf = do
spaces
string "if "
spaces
expr <- expression
spaces
string "then "
st <- statement
return $ If expr st Nothing
import Text.Parsec(char, digit, letter, alphaNum, spaces, parse, string)
--import Text.Parsec.Char
--import Text.ParserCombinators.Parsec(try)
import Text.Parsec.Combinator
import Text.Parsec.String(Parser)
import Text.Parsec.Token
import Text.Parsec.Expr(Operator, Operator(Infix, Prefix), Assoc(AssocLeft), buildExpressionParser)
import Control.Applicative(Applicative, many, (<$>), (<*>), (<|>), (<*), (<$), (*>))
import Control.Monad(join)
--import Data.Char