fork download
copy 
  1. : even ( n-f) 1 and 0= ;
  2. : th-char ( i-c) s" I am not a nitwit" drop + c@ ;
  3. : th-visible ( fi-ff) 9 5 within over or ;
  4. : nitwit ( n-) even 17 0 
  5.   DO i th-visible i th-char and emit LOOP drop ;
  6. cr 3 dup . nitwit  cr 4 dup . nitwit
Success #stdin #stdout 0.01s 5280KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
3 I am a nitwit
4 I am not a nitwit
https://ideone.com/Uu9RPT
language:
Forth (gforth 0.7.3)
created:
20 days 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!