В самый важный день.

[zerg85]

Оригинал находится тут Zerg's Site. Жду комментариев тут comments .

Вот так начался мой день
в 8 утра сдал одну лабу по GPSS и две по Prolog(отдельное спасибо Жене Селивёрстову)

Welcome to SWI-Prolog (Multi-threaded, Version 5.6.45)
Copyright (c) 1990-2007 University of Amsterdam.
SWI-Prolog comes with ABSOLUTELY NO WARRANTY. This is free software,
and you are welcome to redistribute it under certain conditions.
Please visit http://www.swi-prolog.org for details.

For help, use ?- help(Topic). or ?- apropos(Word).

?- consult(’r.pl’).

Warning: (/home/rk6/Desktop/r.pl:71):
Singleton variables: [Dhigh]
Warning: (/home/rk6/Desktop/r.pl:74):
Singleton variables: [Dlow]
Warning: (/home/rk6/Desktop/r.pl:91):
Clauses of active/6 are not together in the source-file
Warning: (/home/rk6/Desktop/r.pl:95):
Singleton variables: [Dlow]
Warning: (/home/rk6/Desktop/r.pl:102):
Singleton variables: [Dlow]
Warning: (/home/rk6/Desktop/r.pl:105):
Singleton variables: [Npr]
Warning: (/home/rk6/Desktop/r.pl:115):
Singleton variables: [ClutchSize, LobeSize, CodeClutch, CodeLobe, CodeBear, Npr]
% r.pl compiled 0.00 sec, 0 bytes

Yes
?- count(flat_rough,100,40,ClutchSize,LobeSize,CodeClutch,CodeLobe,CodeBear,LST,Npr,N,Result).

LST = [ (flat_rough, 100, 40, ‘45_30′, ‘30_18′, ‘2.451.01′, ‘2.913.05′, ‘2.910.01′, …, …), (flat_rough, 100, 40, ‘60_45′, ‘45_22′, ‘2.451.02′, ‘2.913.06′, …, …), (flat_rough, 100, 40, ‘60_45′, ‘45_22′, ‘3.451.01′, …, …)],
N = 3,
Result = [[[’3.217.10′, 3]], 3]

Yes
?-

Мне 23.