Matouš Dzivjak matoous

January trip

Searching for: trip to Canary Islands for 22-28 days in January, 4-6 people, 4 rooms.

Gran Canaria is the third largest island.

Flight: ±130 eur (Ryanair, Easyjet, Vueling), dates flexible, flies to Las Palmas

id	title
tools	The coolest tools

I hereby claim:

To claim this, I am signing this object:

	#/bin/sh

	if [[ -x $GIT_TOKEN ]]; then
	echo "you need to set GIT_TOKEN env variable"
	exit 1
	fi

	# get all merge requests for our team
	# filter the merge request for only those that have time spent != null
	curl https://gitlab.skypicker.com/api/v4/groups/search-team/merge_requests\?state\=all\&created_after\=$(date -v-1w +%Y/%m/%d)\&per_page\=100 --header "Private-Token: $GIT_TOKEN" -s \

	#/bin/sh

	if [[ -x $GIT_TOKEN ]]; then
	echo "you need to set GIT_TOKEN env variable"
	exit 1
	fi

	# Get all merge requests for search-team, we can't use gonuts here because for example SearchAPI is under search team
	# but we still sometimes work at it. Filter the merge request for only those that have time spent != null.
	curl https://gitlab.skypicker.com/api/v4/groups/search-team/merge_requests\?state\=all\&per_page\=100 --header "Private-Token: $GIT_TOKEN" -s \

	module ZipList where

	type ZipList a = ([a], [a])

	newList :: ZipList a
	newList = ([], [])

	moveLeft :: ZipList a -> ZipList a
	moveLeft ((a:b), c) = (b, (a:c))
	moveLeft _ = error "Invalid operation"

	normalize :: [Double] -> [Double]
	normalize l = map (\x -> x / (maximum normalized)) normalized
	where normalized = map (\x -> (x - minimum l)) l

	removeMax :: [Int] -> Int -> [Int]
	removeMax ls mx = map (\x -> if x == mx then x - 1 else x) ls

	increment :: [Int] -> Int -> [Int]
	increment (a:b) 0 = (a + 1):b
	increment (a:b) y = a:(increment b (y - 1))