paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-11 16:30:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

* updated to the current version from the shootout

Browse Source 
git-svn-id: trunk@12748 -
This commit is contained in:
Vincent Snijders 2009-02-18 20:33:03 +00:00
parent cb7f19e798
commit 78d1b92d2f
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tests/bench/shootout/src/knucleotide.pp
View File

@ -1,13 +1,13 @@
(* The Computer Language Shootout
(* The Computer Language Benchmarks Game
http://shootout.alioth.debian.org/
contributed by Josh Goldfoot
modified by Vincent Snijders
*)
program knucleotide;
{$mode objfpc}
{$mode objfpc}{$I-}{$INLINE ON}
program knucleotide;
(* simple_hash available from CVS *)
@ -393,3 +393,4 @@ begin
//SetPrecisionMode(pmDouble);
main;
end.