fork download
copy 
  1. \ Confronto caratteri
  2.  
  3. : e-una-A?  ( c -- flag )
  4.   [char] A = ;
  5.  
  6. 65 e-una-A? .  \ Stampa: -1 (vero)
  7.  
  8. \ Spazio
  9.  
  10. : e-uno-spazio?  ( c -- flag )
  11.   [char]   = ;   \ Nota: spazio dopo [char]
  12.  
  13. 32 e-uno-spazio? .   \ Stampa: -1 (vero)
Success #stdin #stdout 0.01s 5316KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
-1 61
https://ideone.com/RfD33A
language:
Forth (gforth 0.7.3)
created:
15 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!