Rosetta Code

Trabb Pardo–Knuth algorithm: Difference between revisions

Page Discussion

Trabb Pardo–Knuth algorithm (view source)

Revision as of 23:57, 22 July 2023

128 bytes removed ,  10 months ago
m
→‎{{header|Modula-2}}: Standard ABS function used.
(→‎{{header|ANSI BASIC}}: Added a solution.)
m (→‎{{header|Modula-2}}: Standard ABS function used.)
Line 2,997:
END;
END ReverseSequence;
 
PROCEDURE RealAbs(Item: REAL): REAL;
BEGIN
IF Item < 0.0 THEN
RETURN -Item
ELSE
RETURN Item
END
END RealAbs;
 
PROCEDURE DoOperation(Item: REAL): REAL;
BEGIN
RETURN sqrt(RealAbsABS(Item)) + 5.0 * Item * Item * Item;
END DoOperation;
 
Christophoro S
511

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/346760"