fork download
copy 
  1. create AXD S" rosetta code phrase reversal" S,
  2. : reverse { addr len } addr len bounds  do  I c@ loop addr len bounds do I c! loop ;
  3. AXD count 2dup reverse  type
Success #stdin #stdout 0.01s 5560KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
lasrever esarhp edoc attesor
https://ideone.com/1yBSoK
language:
Forth (gforth 0.7.3)
created:
2 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!