Wolverrum (lazydev) все записи автора Читать далее...

Wolverrum (lazydev) все записи автора Rus: Подсветка к плагину FarColorer для Groovy
Eng: Groovy syntas highlighting schemes for FarColorer

Читать далее...

Wolverrum (lazydev) все записи автора Rus: Реализация программы ptime средствами FPC
Eng: PTime tool equivalent in Free Pascal

Читать далее...

Wolverrum (lazydev) все записи автора Rus: Простой но довольно мощный парсер строки, который позволяет разбирать как POSIX так и Windows стили аргументов
Eng: Simple but powerful command line parser which recognizes any kind of POSIX and Windows arguments

Читать далее...

Wolverrum (lazydev) все записи автора Жто такой генератор Си-кода, который из строчки

code:


val _ = print( "Hi\n" )

implement main() = ()

генерирует Читать далее...

Wolverrum (lazydev) все записи автора

Закатать в C# что-то вроде

code:


	T<B> F(Func<A,B> f, T<A> s) where T: new(), ICollection<A>, ICollection<B> { ...

	

не представилось возможным - язык убог-с.

Приходится изголяться примерно так:

code:


	R Map(Fun<A,B> f, S s) where S:ICollection<A> where R:ICollection<B>, new() {

	Guard.Require( Utils.AreTypeFamiliesEqual(typeof(S), typeof(R)) ); ...

	

Wolverrum (lazydev) все записи автора Оказалось, ее до меня кто-то уже открывал.

Wolverrum (lazydev) все записи автора Понадобилось намедни перекинуть список пользователей вида "Ф И О" из OpenOffice Calc список пользователей в БД (вида login, pass, Ф, И, О)...
Пока сделал так:

=IF(LEN(TRIM(A2))>0;CONCATENATE("EXEC psNewUser "; "'"; D2; "'"; ","; "'"; D2; "'"; ","; "'"; SUBSTITUTE(MID(A2; SEARCH(" "; A2; 1)+1; SEARCH(" "; A2; SEARCH(" "; A2; 1)+1) - SEARCH(" "; A2; 1)-1); "'"; "''"); "'";",";"'"; SUBSTITUTE(MID(A2; 1; SEARCH(" "; A2; 1)-1); "'"; "''"); "'"; ",";"'"; SUBSTITUTE(MID(A2; SEARCH(" ";A2;SEARCH(" ";A2;1)+1)+1; LEN(A2)-SEARCH(" ";A2;SEARCH(" ";A2;1)+1)); "'"; "''"); "'"; CHAR(13); CHAR(10); "GO");"")

Читабельно, аж пиздец, но работает :)
Особенно угребищно сделано выделение подстроки - функций работы с регулярными выражениями, вроде бы, нет, посему пришлось поизголяться с индексами.

Wolverrum (lazydev) все записи автора Попробовал binary-trees на 1-процессорной виртуальной XP-машине.

Java (JVM) - 6 sec
Scala (JVM) - 6 sec
FPK Pascal - 9 sec (!!!)
Mono - 19 sec
ABCL (IKVM) - 111 sec

Wolverrum (lazydev) все записи автора Две микроскопические программки - перевод файла в изображение и обратно.
Flickr теперь можно использовать как файлохранилище в пику всем копирастам :)

Исходники:
Раз: и два:

Вложение: 3838102_filexpng.zip

Wolverrum (lazydev) все записи автора Венец?

Template Method

C#:

code:


using System;

 

  class MainApp

  {

    static void Main()

    {

      AbstractClass c;

 

      c = new ConcreteClassA();

      c.TemplateMethod();

 

      c = new ConcreteClassB();

      c.TemplateMethod();

    }

  }

 

  abstract class AbstractClass

  {

    public abstract void PrimitiveOperation1();

    public abstract void PrimitiveOperation2();

    public void TemplateMethod()

    {

      PrimitiveOperation1();

      PrimitiveOperation2();

      Console.WriteLine("");

    }

  }

 

  class ConcreteClassA : AbstractClass

  {

    public override void PrimitiveOperation1()

    {

      Console.WriteLine("ConcreteClassA.PrimitiveOperation1()");

    }

    public override void PrimitiveOperation2()

    {

      Console.WriteLine("ConcreteClassA.PrimitiveOperation2()");

    }

  }

 

  class ConcreteClassB : AbstractClass

  {

    public override void PrimitiveOperation1()

    {

      Console.WriteLine("ConcreteClassB.PrimitiveOperation1()");

    }

    public override void PrimitiveOperation2()

    {

      Console.WriteLine("ConcreteClassB.PrimitiveOperation2()");

    }

  }

Erlang:

code:


-module(mainApp).

-export([main/0, templateMethod/1, classA/1, classB/1]).



primitiveOperation1A() -> io:format("ConcreteClassA.PrimitiveOperation1()~n", []).

primitiveOperation2A() -> io:format("ConcreteClassA.PrimitiveOperation2()~n", []).

classA(m1) -> fun primitiveOperation1A/0;

classA(m2) -> fun primitiveOperation2A/0.



primitiveOperation1B() -> io:format("ConcreteClassB.PrimitiveOperation1()~n", []).

primitiveOperation2B() -> io:format("ConcreteClassB.PrimitiveOperation2()~n", []).

classB(m1) -> fun primitiveOperation1B/0;

classB(m2) -> fun primitiveOperation2B/0.



templateMethod(S) ->

	P = S(m1), P(),

	Q = S(m2), Q(),

	io:format("~n", []).



main() ->

  templateMethod(fun classA/1),

  templateMethod(fun classB/1).

Ой?

Wolverrum (lazydev) все записи автора Ни убавить, ни прибавить