fork download
copy 
  1. \ >>>/g/89740015
  2.  
  3. \ counted string at pad.
  4. : p ( -au) pad count ;
  5. : p+ ( au-) p + swap dup pad +! move ;
  6. : p0 ( -) 0 pad c! ;
  7.  
  8. : s  s" i am not a nitwit. " ;
  9. : am  p0 s drop 5 p+ s 9 /string p+ ;
  10. : not  p0 s p+ ;
  11. : nitwit  1 and if am else not then p type ;
  12.  
  13. cr 3 dup . nitwit
  14. cr 4 dup . nitwit
  15.  
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/ODkGYB
language:
Forth (gforth 0.7.3)
created:
3 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!