fork download
copy 
  1. : no ( -au) s" i am not a nitwit. " ;
  2. no 5 nip here place  no 9 /string here +place  
  3. here count dup 1+ allot 2Constant yes ( -au)
  4. : nitwit ( n-) 1 and if yes else no then type ;
  5. 3 cr dup . nitwit  4 cr dup . nitwit 
  6.  
Success #stdin #stdout 0.01s 5288KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
3 i am a nitwit. 
4 i am not a nitwit.
https://ideone.com/CpWxJv
language:
Forth (gforth 0.7.3)
created:
1 year 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!