Leonid Beschasny lbeschastny

Вопросы

	const { PassThrough, Writable } = require('stream');

	process.on('uncaughtException', err => console.error('uncaughtException:', err))

	const pass = new PassThrough()
	const writable = new Writable({
	write (chunk, encoding, callback) {
	console.log('data:', chunk.toString())
	callback()
	}

	export const addEventListener = (target, event, handler) => {
	if (target.addEventListener) {
	target.addEventListener(event, handler)
	} else {
	let key = `on${event.toLowerCase()}`
	if (target.attachEvent) {
	target.attachEvent(key, handler)
	} else {
	target[key] = handler
	}

	apt-get install -y git
	cd $HOME && git clone https://github.com/calaba/octave-3.8.2-enable-64-ubuntu-14.04.git
	cd octave-3.8.2-enable-64-ubuntu-14.04 \
	&& echo 'export octave64src=/opt/octave-3.8.2' >> compile-params.in \
	&& ./all.sh

	(defn- -find
	[{:keys [left right root] :as tree} pred el acc]
	(if tree
	(if (== root el)
	[tree acc]
	(if (pred root el)
	(recur left pred el (conj acc :left))
	(recur right pred el (conj acc :right))))
	[nil acc]))

	(defn merge-step
	"Merges two sorted collections into one sorted sequence
	using comparator"
	[cmp left-coll right-coll]
	(loop [[lh & lt :as lc] left-coll
	[rh & rt :as rc] right-coll
	out []]
	(cond
	(empty? lc) (concat out rc)
	(empty? rc) (concat out lc)

	#!/bin/bash

	if [ "$#" -lt 2 ]; then
	echo ""
	echo "Usage: extract-unzipsfx <SFX_EXE_PATH> <7Z_ARCHIVE_PATH>"
	echo ""
	exit 1
	fi

	head -c $(expr `wc -c < $1` - `wc -c < $2`) $1

	(defn flatten-bfs [{:keys [attrs content]}]
	(loop [ret []
	queue (into clojure.lang.PersistentQueue/EMPTY content)]
	(if (seq queue)
	(let [{attrs :attrs children :content} (peek queue)]
	(recur (if (nil? (:v attrs))
	ret
	(conj ret (:v attrs)))
	(into (pop queue) children)))
	ret)))