YoukaiCat

-- Найти все натуральные числа 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

YoukaiCat

// 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

YoukaiCat

program zadacha1;

uses Math;

var
  x : integer;

function z(x : integer) : real;
var y : real;
begin

YoukaiCat

#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];

YoukaiCat

# 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

YoukaiCat

// ==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==

YoukaiCat

#include "MoveSemanticsBench.h"

#include <vector>
#include <algorithm>
#include <memory>
#include <iostream>

#include "Utils.h"

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

YoukaiCat

class Analyzer
  attr_reader :name

  def initialize name, numbers, bits_count = 16
    @name = name
    @numbers = numbers
    @bits_count = bits_count
  end

  # Случайность распределения

YoukaiCat

#!/usr/bin/env ruby
# coding: utf-8

module LCG
  def self.generate prev, a, c, m
    (a * prev + c) % m
  end
end

class LCGBruteForce

YoukaiCat

#!/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