fork download
copy 
  1. : f dup 2dup 10e s>f flog 1e f+ floor f** s>f f* s>f f+ f>s * ;
  2. 174 f .
Success #stdin #stdout 0s 6824KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
30306276
https://ideone.com/QSCEpn
lambda x : x*int(`x`*2)
language:
Forth (gforth 0.7.3)
created:
7 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!