fork download
copy 
  1. : 1.0+
  2.   [ 1 S>F FLITERAL ] S>F F+
  3. ;
  4.  
  5. : 0.5*
  6.   [ S" 0.5" >FLOAT DROP FLITERAL ] F*
  7. ;
  8.  
  9. : COMPOSE
  10.    >R >R : R> COMPILE, R> COMPILE, POSTPONE ;
  11. ;
  12.  
  13. ' 1.0+ ' 0.5* COMPOSE COMPOSE1
  14. ' EVALUATE ' COMPOSE1 COMPOSE COMPOSE2
  15.  
  16. S" 83" COMPOSE2 F.
Success #stdin #stdout 0s 22520KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
42.
https://ideone.com/nU8tUC
language:
Forth (gforth 0.7.3)
created:
7 years ago
visibility:
public

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!