fork(1) download 
  1. : 2aligned ( n-n) 1+ -2 and ; \ assumes 2s comp
  2. : sumevens ( nn-n) 0 ( sum ) >r 2aligned begin
  3.   2dup >= while  dup r> + >r 2 + repeat  2drop r> ;
  4.  
  5. 10 5 sumevens ( 6+8+10 ) dup . 24 <> throw
Success #stdin #stdout 0.01s 5324KB
comments (?)
stdin 
Standard input is empty
stdout 
24
https://ideone.com/5oMhJ1
language:
Forth (gforth 0.7.3)
created:
9 days 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!