Slawomir Chodnicki slawo-ch

slawo-ch / graph.clj

Last active December 9, 2015 09:02

Topological sort in clojure (Tarjan's depth first algorighm)

	(ns twineworks.util.graph)

	(defn ^:private toposort-visit [n g state]
	(let [{:keys [unmarked processing processed]} state]
	(when (contains? processing n)
	(throw (ex-info "cannot toposort a cyclic graph" {:cause :cyclic-graph
	:cycle-node n
	:state state
	:graph g})))

slawo-ch / LexerTest.java

Created September 7, 2017 17:08

Test for lexing script with and without globals

	import org.jcodings.Encoding;
	import org.jruby.Ruby;
	import org.jruby.common.NullWarnings;
	import org.jruby.lexer.ByteListLexerSource;
	import org.jruby.lexer.LexerSource;
	import org.jruby.lexer.LexingCommon;
	import org.jruby.lexer.yacc.RubyLexer;
	import org.jruby.parser.ParserConfiguration;
	import org.jruby.parser.ParserSupport;
	import org.jruby.parser.RubyParserResult;

slawo-ch / split.awk

Last active April 6, 2024 16:41

split mysql dump to csv's

	BEGIN {
	# file starts with DDL statements that go into header.sql

	table = "header";
	sql = 1
	}

	{
	# -- step 1 --
	# determine whether current line contains a DDL sql statement or

slawo-ch / RankExample.scala

Created December 5, 2017 19:52

	/*
	* Licensed to the Apache Software Foundation (ASF) under one or more
	* contributor license agreements. See the NOTICE file distributed with
	* this work for additional information regarding copyright ownership.
	* The ASF licenses this file to You under the Apache License, Version 2.0
	* (the "License"); you may not use this file except in compliance with
	* the License. You may obtain a copy of the License at
	*
	* http://www.apache.org/licenses/LICENSE-2.0
	*

slawo-ch / Processing.perl

Created December 5, 2017 19:56

	while (($key, $value) = each(%transformFiles)) {

	open my $dataFile, $key or die "Can't open '$key': $!";
	open my $transformFile, '>', $value or die "Can't open '$value': $!";

	my $line=<$dataFile>;
	chomp($line);
	$line =~ s/\r*//g;
	print $transformFile $line, "\t", "Adjusted M1", "\n";

slawo-ch / sample.sql

Created December 5, 2017 20:12

	DROP TABLE IF EXISTS saas_response_final;
	CREATE TABLE saas_response_final AS
	SELECT ge.accountId
	, ge.addressLine2
	, ge.city
	, ge.state
	, ge.zip
	, ge.description
	, srje.status
	, COALESCE(srje.letterGrade, '---')

slawo-ch / randomuser.json

Created October 28, 2019 20:41

randomuser.json

slawo-ch / randomusers_optimized.json

Created October 28, 2019 21:40

Query response after tweaking the query

slawo-ch / randomuser_tables.sql

Created October 28, 2019 22:37

	DROP TABLE IF EXISTS location;

	CREATE TABLE location (
	location_id INTEGER GENERATED BY DEFAULT AS IDENTITY PRIMARY KEY,
	country TEXT,
	state TEXT,
	city TEXT
	);

	CREATE INDEX location_lookup ON location

slawo-ch / Samsung-Galaxy-S3 Mini.txt

Last active November 2, 2019 21:16

	Creation_Time,Sensor_Time,Arrival_Time,x,y,z
	1560991054000,1560991,1398347034631,0.079008654,0.12210429,9.419987
	1561001064000,1561001,1398347034642,0.088585466,0.12330139,9.416395
	1561011043000,1561011,1398347034651,0.092176765,0.10534488,9.417592
	...