fork download

copy

[code][{Solve the cryptogram LOCK
CANAL
CACHE
-----
HIDDEN
 
found on Programmers Heaven that somebody wanted some help with
on this date 2012-Aug-25
 
revised by Carl W. Skipworth Rev Date 2012-Aug-28 }
 
program Hidden;
 
const
nz : integer = ord( '0' ); { number zero( in character form ) }
ten = 10; { worth ten }
oh = 100; { worth one hundred }
ot = 1000; { worth one thousand }
tt = 10000; { worth ten thousand }
ht = 100000; { worth hundred thousand }
 
type
str10 = string[10];
 
var
l, o, c, k, a, n, h, e, i, d : integer;
s, outstr : str10;
fout : text;
attempts : longint;
successes : integer;
 
procedure TryOne;
 
begin
Inc( attempts );
l := ord( outstr[ 1] ) - nz;
o := ord( outstr[ 2] ) - nz;
c := ord( outstr[ 3] ) - nz;
k := ord( outstr[ 4] ) - nz;
a := ord( outstr[ 5] ) - nz;
n := ord( outstr[ 6] ) - nz;
h := ord( outstr[ 7] ) - nz;
e := ord( outstr[ 8] ) - nz;
i := ord( outstr[ 9] ) - nz;
d := ord( outstr[10] ) - nz;
if l * ot + o * oh + c * ten + k + { 1st word }
c * tt + a * ot + n * oh + a * ten + l + { 2nd word }
c * tt + a * ot + c * oh + h * ten + e = { 3rd word }
h * ht + i * tt + d * ot + d * oh + e * ten + n then begin
writeln( fout, ' l = ',l );
writeln( fout, ' o = ',o );
writeln( fout, ' c = ',c );
writeln( fout, ' k = ',k );
writeln( fout, ' a = ',a );
writeln( fout, ' n = ',n );
writeln( fout, ' h = ',h );
writeln( fout, ' e = ',e );
writeln( fout, ' i = ',i );
writeln( fout, ' d = ',d );
writeln( fout );
writeln( fout,' ',l,o,c,k );
writeln( fout,' ',c,a,n,a,l );
writeln( fout,' ',c,a,c,h,e );
writeln( fout,' --------' );
writeln( fout,' ',h,i,d,d,e,n );
writeln( fout);
writeln;
writeln( ' ',l,o,c,k );
writeln( ' ',c,a,n,a,l );
writeln( ' ',c,a,c,h,e );
writeln( ' --------' );
writeln( ' ', h,i,d,d,e,n );
Inc( successes )
end
end;
 
procedure Permute_it ( s : str10 );
 
var
ss : str10;
i, len : integer;
 
begin
len := length( s );
if len = 0 then
TryOne
else
 
for i := 1 to len do begin
outstr := outstr + s[i];
ss := s;
delete( ss, i, 1 );
Permute_it( ss );
Delete( outstr, length( outstr ), 1 )
end
 
end;
 
begin
assign( fout, 'B:HIDDEN.TXT');
rewrite( fout );
attempts := 0;
successes := 0;
outstr := '';
s := '0123456789';
Permute_it( s );
writeln( fout, ' attempts = ', attempts, ' successes = ', successes );
writeln( ' attempts = ', attempts, ' successes = ', successes );
close( fout )
end./code]

Visual Basic.Net Compiler version 0.0.0.5914 (Mono 2.4.2 - r)
Copyright (C) 2004-2008 Rolf Bjarne Kvinge. All rights reserved.


/home/2rUicT/prog.vb (1,8) : Error VBNC30203: Not valid as identifier.
/home/2rUicT/prog.vb (1,9) : Error VBNC30203: Not valid as identifier.
/home/2rUicT/prog.vb (1,9) : Error VBNC30034: An escaped identifier must end with ']'.
/home/2rUicT/prog.vb (2,6) : Error VBNC30203: Not valid as identifier.
/home/2rUicT/prog.vb (3,6) : Error VBNC30203: Not valid as identifier.
/home/2rUicT/prog.vb (4,2) : Error VBNC30203: Not valid as identifier.
/home/2rUicT/prog.vb (5,7) : Error VBNC30203: Not valid as identifier.
/home/2rUicT/prog.vb (7,6) : Error VBNC30203: Not valid as identifier.
/home/2rUicT/prog.vb (8,3) : Error VBNC30203: Not valid as identifier.
/home/2rUicT/prog.vb (10,8) : Error VBNC30203: Not valid as identifier.
/home/2rUicT/prog.vb (12,8) : Error VBNC30203: Not valid as identifier.
/home/2rUicT/prog.vb (12,15) : Error VBNC30037: Symbol is not valid.
/home/2rUicT/prog.vb (14,6) : Error VBNC30203: Not valid as identifier.
/home/2rUicT/prog.vb (15,3) : Error VBNC30203: Not valid as identifier.
/home/2rUicT/prog.vb (16,4) : Error VBNC30203: Not valid as identifier.
/home/2rUicT/prog.vb (16,9) : Error VBNC30037: Symbol is not valid.
/home/2rUicT/prog.vb (17,3) : Error VBNC30203: Not valid as identifier.
/home/2rUicT/prog.vb (17,9) : Error VBNC30037: Symbol is not valid.
/home/2rUicT/prog.vb (18,3) : Error VBNC30203: Not valid as identifier.
/home/2rUicT/prog.vb (18,10) : Error VBNC30037: Symbol is not valid.
/home/2rUicT/prog.vb (19,3) : Error VBNC30203: Not valid as identifier.
/home/2rUicT/prog.vb (19,11) : Error VBNC30037: Symbol is not valid.
/home/2rUicT/prog.vb (20,3) : Error VBNC30203: Not valid as identifier.
/home/2rUicT/prog.vb (20,12) : Error VBNC30037: Symbol is not valid.
/home/2rUicT/prog.vb (22,5) : Error VBNC30203: Not valid as identifier.
/home/2rUicT/prog.vb (23,6) : Error VBNC30203: Not valid as identifier.
/home/2rUicT/prog.vb (23,16) : Error VBNC30203: Not valid as identifier.
/home/2rUicT/prog.vb (23,16) : Error VBNC30034: An escaped identifier must end with ']'.
/home/2rUicT/prog.vb (23,18) : Error VBNC30037: Symbol is not valid.
/home/2rUicT/prog.vb (25,4) : Error VBNC30203: Not valid as identifier.
/home/2rUicT/prog.vb (26,2) : Error VBNC30203: Not valid as identifier.
/home/2rUicT/prog.vb (26,39) : Error VBNC30037: Symbol is not valid.
/home/2rUicT/prog.vb (27,2) : Error VBNC30203: Not valid as identifier.
/home/2rUicT/prog.vb (27,18) : Error VBNC30037: Symbol is not valid.
/home/2rUicT/prog.vb (28,5) : Error VBNC30203: Not valid as identifier.
/home/2rUicT/prog.vb (28,12) : Error VBNC30037: Symbol is not valid.
/home/2rUicT/prog.vb (29,9) : Error VBNC30203: Not valid as identifier.
/home/2rUicT/prog.vb (29,19) : Error VBNC30037: Symbol is not valid.
/home/2rUicT/prog.vb (30,10) : Error VBNC30203: Not valid as identifier.
/home/2rUicT/prog.vb (30,20) : Error VBNC30037: Symbol is not valid.
/home/2rUicT/prog.vb (32,10) : Error VBNC30203: Not valid as identifier.
/home/2rUicT/prog.vb (32,17) : Error VBNC30037: Symbol is not valid.
/home/2rUicT/prog.vb (34,6) : Error VBNC30203: Not valid as identifier.
/home/2rUicT/prog.vb (35,4) : Error VBNC30203: Not valid as identifier.
/home/2rUicT/prog.vb (35,16) : Error VBNC30037: Symbol is not valid.
/home/2rUicT/prog.vb (36,2) : Error VBNC30203: Not valid as identifier.
/home/2rUicT/prog.vb (36,18) : Error VBNC30203: Not valid as identifier.
/home/2rUicT/prog.vb (36,18) : Error VBNC30034: An escaped identifier must end with ']'.
/home/2rUicT/prog.vb (36,20) : Error VBNC30037: Symbol is not valid.
/home/2rUicT/prog.vb (37,2) : Error VBNC30203: Not valid as identifier.
/home/2rUicT/prog.vb (37,18) : Error VBNC30203: Not valid as identifier.
/home/2rUicT/prog.vb (37,18) : Error VBNC30041: Too many errors.
Exception of type 'vbnc.TooManyErrorsException' was thrown.
  at vbnc.Report.ShowMessage (Boolean SaveIt, vbnc.Message Message) [0x00080] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Report.vb:342 
  at vbnc.Report.ShowMessage (Messages Message, Span Location, System.String[] Parameters) [0x00000] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Report.vb:259 
  at vbnc.Report.ShowMessage (Messages Message, System.String[] Parameters) [0x00054] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Report.vb:269 
  at vbnc.Compiler.Compile () [0x005a3] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Compiler.vb:651 
  at vbnc.Compiler.Compile (System.String[] CommandLine) [0x00057] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Compiler.vb:279 
  at vbnc.Main.Main (System.String[] CmdArgs) [0x0000f] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Main.vb:55 
Failed compilation took 00:00:00.5920710

Standard output is empty