1
2
: star 42 emit ;
star

1
2 3 + 5 * .

1
2
3
4
5
6
7
8
9
: jvm_op_bipush
  jvm_fetch_instruction
  dup 0x80 and
  if
    [ -1 8 lshift ] literal or
  endif
;
 
: jvm_init_ops ( -- )
 ...

1
2
3
4
5
6
7
8
9
: jvm_op_bipush                                                                  jvm_fetch_instruction                                                        
  dup 0x80 and                                                                 
  if                                                                           
    [ -1 8 lshift ] literal or                                                 
  endif                                                                        
;                                                                              
                                                                               
: jvm_init_ops ( -- )                                                          
\ ...                                                                          
 ...

1
2
3
4
5
6
7
8
9
CREATE OPS 4 cells allot
 
: >[
  cells OPS + :noname
;
 
: ]<
  POSTPONE ; swap !
; IMMEDIATE
 ...

1
2
3
4
5
6
7
8
9
CREATE OPS 4 cells allot
 
: >[
  cells OPS + :noname
;
 
: ]<
  POSTPONE ; swap !
; IMMEDIATE
 ...

1
2
3
4
5
6
7
8
9
CREATE OPS 4 cells allot
 
: >[
  cells OPS + :noname
;
 
: ]<
  POSTPONE ; swap !
; IMMEDIATE
 ...

1
2
3
4
5
6
7
8
9
$ gforth
Gforth 0.7.0, Copyright (C) 1995-2008 Free Software Foundation, Inc.
Gforth comes with ABSOLUTELY NO WARRANTY; for details type `license'
Type `bye' to exit
CREATE OPS 4 cells allot  ok      
: >[ cells OPS + :noname ;  ok    
: ]< POSTPONE ; swap ! ; IMMEDIATE  ok
: [> OPS ;  ok
: <] cells + @ EXECUTE ;  ok
 ...

1
2
3
4
5
6
7
8
9
class Password
{
      static void Main(string[] args)
      {
             console.Write("The password is: ")
             
             for (int i = 0; i < 6; i++)
                 Console.Write(GetChar(i,i*i));
             Console.readKay();
 ...

1
2
3
4
5
6
7
8
9
#include <iostream>
 
// This enables us to use all std definitions directly.
using namespace std;
 
/** This function returns a Fibonacci number. */
int fib(int n)
{
    int f2=0;
 ...

1
2
3
4
5
6
7
8
9
#include <iostream>
 
// This enables us to use all std definitions directly.
using namespace std;
 
/** This function returns a Fibonacci number. */
int fib(int n)
{
    int f2=0;
 ...

1
2
3
4
5
6
7
8
9
#include <iostream>
 
// This enables us to use all std definitions directly.
using namespace std;
 
/** This function returns a Fibonacci number. */
int fib(int n)
{
    int f2=0;
 ...

1
2
3
4
5
6
7
8
9
#ifndef UEB_10_1_SOL_H
#define UEB_10_1_SOL_H
 
#include <iostream>
#include <string>
 
using namespace std;
 
class ListElem
 ...

1
1 2 + .

1
2
3
4
5
6
7
8
9
! Copyright (C) 2006 Daniel Ehrenberg
! See http://factorcode.org/license.txt for BSD license.
USING: kernel math sequences strings io combinators ascii ;
IN: rot13
 
: rotate ( ch base -- ch ) [ - 13 + 26 mod ] [ + ] bi ;
 
: rot-letter ( ch -- ch )
    {
 ...

1
2
3
: square dup * ;
 
12 square .

1
10 6 * .

1
10 6 *

1
2
3
4
5
: INT_MIN -10 ;
: INT_MAX 9 ;
: USEIT . ;
 
INT_MIN BEGIN DUP USEIT DUP INT_MAX <> WHILE 1+ REPEAT DROP

1
2
3
4
5
6
7
8
9
eb 04 af c2 bf a3 81 ec   00 01 00 00 31 c9 88 0c 
0c fe c1 75 f9 31 c0 ba   ef be ad de 02 04 0c 00 
d0 c1 ca 08 8a 1c 0c 8a   3c 04 88 1c 04 88 3c 0c 
fe c1 75 e8 e9 5c 00 00   00 89 e3 81 c3 04 00 00 
00 5c 58 3d 41 41 41 41   75 43 58 3d 42 42 42 42 
75 3b 5a 89 d1 89 e6 89   df 29 cf f3 a4 89 de 89 
d1 89 df 29 cf 31 c0 31   db 31 d2 fe c0 02 1c 06 
8a 14 06 8a 34 1e 88 34   06 88 14 1e 00 f2 30 f6 
8a 1c 16 8a 17 30 da 88   17 47 49 75 de 31 db 89 

1
2
3
4
5
(define (margreteborg row col)
(cond ((< row col) #f)
((or (= 0 col) (= row col)) 1)
(else (+ (margreteborg (- row 1) col) (margreteborg (- row 1) (- col 1))))))
 

1
2
3
4
5
6
7
8
9
eb 04 af c2 bf a3 81 ec   00 01 00 00 31 c9 88 0c 
0c fe c1 75 f9 31 c0 ba   ef be ad de 02 04 0c 00 
d0 c1 ca 08 8a 1c 0c 8a   3c 04 88 1c 04 88 3c 0c 
fe c1 75 e8 e9 5c 00 00   00 89 e3 81 c3 04 00 00 
00 5c 58 3d 41 41 41 41   75 43 58 3d 42 42 42 42 
75 3b 5a 89 d1 89 e6 89   df 29 cf f3 a4 89 de 89 
d1 89 df 29 cf 31 c0 31   db 31 d2 fe c0 02 1c 06 
8a 14 06 8a 34 1e 88 34   06 88 14 1e 00 f2 30 f6 
8a 1c 16 8a 17 30 da 88   17 47 49 75 de 31 db 89 

1
2
3
4
5
6
7
8
9
00eb 0004 00c2 00bf 00a3 0081 00ec  0000 0001 0000 0000 0031 00c9 0088 000c
0c fe c1 75 f9 31 c0 ba  ef be ad de 02 04 0c 00
d0 c1 ca 08 8a 1c 0c 8a  3c 04 88 1c 04 88 3c 0c
fe c1 75 e8 e9 5c 00 00  00 89 e3 81 c3 04 00 00
00 5c 58 3d 41 41 41 41  75 43 58 3d 42 42 42 42
75 3b 5a 89 d1 89 e6 89  df 29 cf f3 a4 89 de 89
d1 89 df 29 cf 31 c0 31  db 31 d2 fe c0 02 1c 06
8a 14 06 8a 34 1e 88 34  06 88 14 1e 00 f2 30 f6
8a 1c 16 8a 17 30 da 88  17 47 49 75 de 31 db 89

1
2
3
4
5
6
7
8
9
eb 04 af c2 bf a3 81 ec  00 01 00 00 31 c9 88 0c
0c fe c1 75 f9 31 c0 ba  ef be ad de 02 04 0c 00
d0 c1 ca 08 8a 1c 0c 8a  3c 04 88 1c 04 88 3c 0c
fe c1 75 e8 e9 5c 00 00  00 89 e3 81 c3 04 00 00
00 5c 58 3d 41 41 41 41  75 43 58 3d 42 42 42 42
75 3b 5a 89 d1 89 e6 89  df 29 cf f3 a4 89 de 89
d1 89 df 29 cf 31 c0 31  db 31 d2 fe c0 02 1c 06
8a 14 06 8a 34 1e 88 34  06 88 14 1e 00 f2 30 f6
8a 1c 16 8a 17 30 da 88  17 47 49 75 de 31 db 89

1
2
3
4
5
6
7
8
9
0 Value fd-in
0 Value fd-out
create XX1 10000 ALLOT
create temp 10000 ALLOT
create pff 100000 chars allot
variable contador
 
: TEXT PAD 258 BL FILL  WORD COUNT PAD SWAP  MOVE ;
: leuser
 ...

1
2
3
4
5
6
7
8
9
0 Value fd-in
0 Value fd-out
create XX1 10000 ALLOT
create temp 10000 ALLOT
create pff 100000 chars allot
variable contador
 
: TEXT PAD 258 BL FILL  WORD COUNT PAD SWAP  MOVE ;
: leuser
 ...

1
2
3
4
5
6
7
8
9
eb 04 af c2 bf a3 81 ec
0c fe c1 75 f9 31 c0 ba
d0 c1 ca 08 8a 1c 0c 8a
fe c1 75 e8 e9 5c 00 00
00 5c 58 3d 41 41 41 41
75 3b 5a 89 d1 89 e6 89
d1 89 df 29 cf 31 c0 31
8a 14 06 8a 34 1e 88 34
8a 1c 16 8a 17 30 da 88
 ...

1
20 3 /mod . .

1
2
3
: main 5 6 mul ;
 
: mul * . ;

1
2
3
5 6 mul
 
: mul * . ;