This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
-- Найти все натуральные числа a,b,c из интервала от 1 до 20, | |
-- для которых выполняется равенство c2 = b*a2 | |
numbers :: [(Int, Int, Int)] | |
numbers = [ (a,b,c) | a <- [1..20], b <- [1..20], c <- [1..20], c * 2 == b * a * 2 ] | |
main :: IO () | |
main = mapM_ printParams numbers | |
where | |
printParams (a,b,c) = putStrLn $ "a = " ++ show a ++ ", b = " ++ show b ++ ", c = " ++ show c |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// Returns a full path to the current dir | |
function currentDirPath():String; | |
begin | |
result:=extractFileDir(expandFileName('anything')); | |
end; | |
// Makes connection string at runtime. | |
// it's necessary because delphi don't understand relative paths. | |
procedure TDataModule.ADOConnectionBeforeConnect(Sender: TObject); | |
begin |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
program zadacha1; | |
uses Math; | |
var | |
x : integer; | |
function z(x : integer) : real; | |
var y : real; | |
begin |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#include <stdlib.h> | |
#include <stdio.h> | |
#include <string.h> | |
#define BUFF_SIZE 6 /* 5 chars and \0 */ | |
int main() | |
{ | |
int count = 0; | |
char temp[BUFF_SIZE]; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# Classic recursive-descent parser for expressions | |
# Inefficient, boilerplate and hardcoded, | |
# but close to grammar rules and easy to understand | |
def expression | |
if @tokens.first.type == :minus | |
Node.new(Token.new(:unary_minus, @tokens.shift.value)).add_child(additive_expression) | |
else | |
additive_expression | |
end | |
end |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// ==UserScript== | |
// @name HentaiVerseBot | |
// @namespace YoukaiCat | |
// @description HentaiVerse Bot | |
// @include http://hentaiverse.org/* | |
// @version 0.0.1 | |
// @grant none | |
// @require http://code.jquery.com/jquery-2.1.4.min.js | |
// ==/UserScript== |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#include "MoveSemanticsBench.h" | |
#include <vector> | |
#include <algorithm> | |
#include <memory> | |
#include <iostream> | |
#include "Utils.h" | |
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
class Analyzer | |
attr_reader :name | |
def initialize name, numbers, bits_count = 16 | |
@name = name | |
@numbers = numbers | |
@bits_count = bits_count | |
end | |
# Случайность распределения |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env ruby | |
# coding: utf-8 | |
module LCG | |
def self.generate prev, a, c, m | |
(a * prev + c) % m | |
end | |
end | |
class LCGBruteForce |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env ruby | |
# coding: utf-8 | |
# gem install gnuplot | |
# Jmeter config: ${__P(threads,1)} and ${__P(rampup,0)} | |
module OS | |
require 'rbconfig' | |
def self.os |
OlderNewer