Skip to content

Instantly share code, notes, and snippets.

View sash-kan's full-sized avatar

sash-kan sash-kan

View GitHub Profile
#!/urs/bin/env Rscript
# параметрами передать список csv-файлов:
# Rscript script.r *.csv
f <- function(n) {
csv <- read.csv(n)
list(name = tools::file_path_sans_ext(n),
dgmin = min(csv$dG),
popmin = paste('(',csv[which.min(csv$dG), 'POP'],')',sep=''),
diff --git a/modules/videoio/src/cap_v4l.cpp b/modules/videoio/src/cap_v4l.cpp
index 791f0a2..a879de7 100644
--- a/modules/videoio/src/cap_v4l.cpp
+++ b/modules/videoio/src/cap_v4l.cpp
@@ -2824,21 +2824,8 @@ static void icvCloseCAM_V4L( CvCaptureCAM_V4L* capture ){
{
#ifdef HAVE_CAMV4L2
- if (V4L2_SUPPORT == 0)
+ if (V4L2_SUPPORT == 1)
@sash-kan
sash-kan / result1.csv
Created March 8, 2015 23:53
fp.2015.03.results
We can make this file beautiful and searchable if this error is corrected: No commas found in this CSV file in line 0.
Регион;Аурата сетуньская;Гортикола филоперьевая;Десятилиньята лепая;Мелолонтий западный;Популий грыжомельский;Семипунктата Коха
Австралия;Много;Единицы;Немного;Сравнительно немного;;
Албания;;;Очень мало;;Единицы;
Бутан;Много;;;;;
Вайоминг;;Немного;;;Немного;
Вевелония;В огромных количествах;Сравнительно немного;Немного;Сравнительно немного;Сравнительно немного;Много
Германия;В огромных количествах;;;;;Немного
Греция;В огромных количествах;Много;;;Немного;Немного
Дания;;Сравнительно немного;;Сравнительно немного;;В огромных количествах
Елабуга;;Много;;Очень мало;Много;Много
@sash-kan
sash-kan / GNUmakefile
Last active August 29, 2015 14:16
fp.2015.03
export dat_files = $(wildcard *.dat)
export states_files = States.txt
export freqs_files = Frequencies.txt
all:
@$(MAKE) -f GNUmakefile2.mk bugs.mid
@$(MAKE) -f GNUmakefile2.mk states.mid
@$(MAKE) -f GNUmakefile2.mk freqs.mid
@$(MAKE) -f GNUmakefile3.mk bugs_freqs.mid
@$(MAKE) -f GNUmakefile3.mk result1.csv
@$(MAKE) -f GNUmakefile3.mk result3.csv
@sash-kan
sash-kan / sshpub-to-rsa
Last active December 14, 2015 11:39 — forked from thwarted/sshpub-to-rsa
"openssl rsautl" from squeeze does not understand "X-Comment"
#!/usr/bin/env python
# with help and inspiration from
# * ASN1_generate_nconf(3) (specifically the SubjectPublicKeyInfo structure)
# * http://www.sysmic.org/dotclear/index.php?post/2010/03/24/Convert-keys-betweens-GnuPG%2C-OpenSsh-and-OpenSSL
# * http://blog.oddbit.com/2011/05/converting-openssh-public-keys.html
import sys
import base64
import struct
помощь:
@echo "проверка карты:"
@echo "make в_своем_ли_уме карта=валет"
@echo "или"
@echo "make в_своем_ли_уме карта=пятерка"
# Тройка думает, что Туз не в своём уме.
троика = $(call не_в_своем_уме,$(туз))
# Четвёрка думает, что Тройка и Двойка обе не могут быть не в своём уме.
#!/bin/bash
# данный скрипт является решением задачи майского (2012) конкурса по
# функциональному программированию
# http://users.livejournal.com/_darkus_/650933.html
#
# fp.2012-05.bash (c) 2012 alexander barakin aka sash-kan <al@barak.in>
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
#!/bin/bash
instr() {
echo "применение: $0 <требуемый объём> <объём сосуда> <объём сосуда>"
exit
}
ravno0() {
echo "один из переданных параметров равен нулю"
echo "дайте задачу посложнее"
@sash-kan
sash-kan / alocaletest.bash
Created November 12, 2011 16:59
locale setting tests
#!/bin/bash
dotest() {
printf "%-${longest}s" "$1"
echo -ne "\t"
local i
for i in "${array[@]}"; do
# unset all locale variables before test
eval $(env | grep -oE '^(LANG(UAGE)?|LC_[^=]*)' | sed 's/^/unset /')
eval $1