Skip to content

Instantly share code, notes, and snippets.

1

:- use_module(library(persistency)).

:- persistent fact(fact1:any, fact2:any).

:- initialization(init).

init:- absolute_file_name('fact.db', File, [access(write)]),

@eanmos
eanmos / Recursive-descent-backtracking.js
Created February 19, 2021 05:53 — forked from DmitrySoshnikov/Recursive-descent-backtracking.js
Recursive descent parser with simple backtracking
/**
* = Recursive descent parser =
*
* MIT Style License
* By Dmitry Soshnikov <dmitry.soshnikov@gmail.com>
*
* In this short lecture we'll cover the basic (non-predictive, backtracking)
* recursive descent parsing algorithm.
*
* Recursive descent is an LL parser: scan from left to right, doing
Printing god damin A0 poster as set of A4's
# get the goodies
sudo apt-get install pdftools
#And then break giant son of .... (input is poster_A0.pdf)
pdfposter -mA4 -pA0 poster_A0.pdf poster-NxA4.pdf
# Add some margines (printers suck and eat some of margins so you need to add white margines)
convert -bordercolor white -border 20 poster-NxA4.pdf poster-NxA4_margin.pdf
@eanmos
eanmos / h.c
Created December 16, 2020 06:54
char buffer[MD5LEN * 2 + 1];
for (int i = 0; i < cbHash; ++i) {
buffer[i + 0] = rgbDigits[rgbHash[i] >> 4];
buffer[i + 1] = rgbDigits[rgbHash[i] & 0xF];
}
buffer[MD5LEN * 2] = '\0';
if (!strcmp(buffer, "16DF3988591796F39E3D5E947D8039C9")
@eanmos
eanmos / 4.sql
Last active December 10, 2020 14:03
--/==========================================================================
--/
--/ Задание 1
--/
--/ Измените, если это возможно, режим аутентификации SQL-сервера на
--/ смешанный режим.
--/==========================================================================
-- Документация: https://stackoverflow.com/questions/1393654/how-can-i-change-from-sql-server-windows-mode-to-mixed-mode-sql-server-2008
@eanmos
eanmos / 3.sql
Last active December 9, 2020 16:47
3
--/==========================================================================
--/
--/ Задание 1
--/
--/ Создать тестовую базу данных. База данных должна состоять из 6 файлов
--/ данных и 2 файлов журнала. Файлы данных должны быть распределены
--/ между 3 файловыми группами. Установить полную модель восстановления
--/ базы данных.
--/==========================================================================
--------------------------------------------------
-- Задание 1
--------------------------------------------------
select Пол, avg(Заработная_плата)
from Сотрудник
group by Пол
--------------------------------------------------
-- Задание 2
/* Get the maximum number in an array L. */
function max(L) {
const head = ([h]) => h;
const tail = ([, ...t]) => t;
const isEmpty = (l) => l.length == 0;
if (isEmpty(L))
return 0;
else if (isEmpty(tail(L)))
return head(L);
CREATE DATABASE StackCanaryDB;
USE StackCanaryDB;
CREATE TABLE User(
id INT AUTO_INCREMENT PRIMARY KEY NOT NULL,
nickname VARCHAR(20) NOT NULL
);
CREATE TABLE Question(
id INT AUTO_INCREMENT PRIMARY KEY NOT NULL,