fork download
copy 
  1. (loop :for x in '(0.1e0 0.1s0 0.1d0 0.1l0 1/10)
  2.       :for sum = (loop :repeat 10 :sum x)
  3.       :do (format t "~a: ~a * 10 = ~a~%"
  4.                   (type-of x) x sum))
Success #stdin #stdout 0.01s 10552KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
SINGLE-FLOAT: 0.1 * 10 = 1.0000001
SHORT-FLOAT: 0.1s0 * 10 = 0.99999s0
DOUBLE-FLOAT: 0.1d0 * 10 = 0.9999999999999999d0
LONG-FLOAT: 0.1L0 * 10 = 1.0000000000000000001L0
RATIO: 1/10 * 10 = 1
https://ideone.com/eciX7v
language:
Common Lisp (clisp 2.49.92)
created:
10 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!