1
2
3
4
5
6
7
8
9
 
class POne {
        private int atk;
        private int def;
        private int hp;
        private String nam;
        public POne(int attack,int defense,int health,String name) {
                atk = attack;
                def = defense;
 ...

1
2
3
4
5
6
7
8
9
 
class pone {
        private int atk;
        private int def;
        private int hp;
        private String nam;
        public pone(int attack,int defense,int health,String name) {
                atk = attack;
                def = defense;
 ...

1
12 DUP * .

1
2 3 +

1
3 0 /

1
2
3
4
5
6
7
8
9
a=[[[3,1],[5,1],[821,1],[273997,1],[7741805910970258163,1]],[[2,2],[107,1],[244219007447,1],[95966808334871,1]],[[2,2],[7,3],[919,1],[56951,1],[103160249,1],[4656410419,1]],[[2,3],[17,1],[177693403,1],[414883089729841223,1]],[[3,1],[31,1],[4951,1],[1346989159,1],[50461897989311,1]],[[7,2],[79,1],[241,1],[4271,1],[48523,1],[1051181,1],[176838479,1]],[[2,1],[1475709031,1],[12177009148932085937,1]],[[6323573,1],[4753519027288416018457,1]],[[2,1],[18164960872674393974925145111,1]]]                               
a.length.times do |i|                                   
n=1                                     
(a[i].length).times do |j|                              
n*=a[i][j][0]**a[i][j][1]                                
end                              
s="";                                                   
(Math.log(n)/Math.log(256)).ceil.times do                               
s=(n%256).chr+s              
 ...

1
2
3
4
: FLIP DUP 32 = IF EXIT THEN [CHAR] ~ SWAP - [CHAR] ! + ;
: FLIPSTR 0 DO DUP I + C@ FLIP EMIT LOOP ;
: MSG S" Y0-+7 6, =:++:- +7>1 S610" FLIPSTR CR ;
MSG

1
.

1
 

1
2
3
: xlrb 2 3 + . ;
 
xlrb

1
2
3
4
5
6
7
8
9
int lim = 0x12345678; int pp = 256;
for (int i = 1; (lim-pp) / ((64 + i) + pp) != 0; i++) {
    if (atan(i - ((i / lim) * lim)) > 1.55) // > ~50
        lim = (lim / 50) * 40;
    int foo = lim; // bar
    for (int j = 0; j < 0x123456; j++)
        foo ^= (j >> 3) | (j << 29); // tidy
    pp &= foo; // in 42-0
    if (lim - ((lim / i) * i) == 0) {
 ...

1
2
3
4
5
6
7
8
9
Er ist’s 
        
                   
        
        Frühling läßt sein blaues Band       
        
        wieder flattern durch die Lüfte;               
        
        süße, wohlbekannte Düfte     
 ...

1
2
: printit 2 . ;
printit

1
5 0 do i . loop

1
2 .

1
2
G=(x,u)x=1,2,3,4,5,6 
u=(1,3)(1,4)(2,4)(2,6)(3,2)(4,5)(6,5)

1
2
3
4
5
6
7
8
9
\ md5 ans forth 
 
variable a    variable b    variable c    variable d
1 a ! \ for endian testing
 
variable md5len
 
create buf[] 64 allot
create part[] 64 allot
 ...

1
2
3
4
5
6
7
8
9
\ md5 ans forth 
 
variable a    variable b    variable c    variable d
1 a ! \ for endian testing
 
variable md5len
 
create buf[] 64 allot
create part[] 64 allot
 ...

1
2
3
4
5
6
7
8
9
: place over over >r >r char+ swap chars cmove r> r> c! ;
 
create str1 32 chars allot 
create str2 32 chars allot 
create str3 32 chars allot 
create str4 32 chars allot 
 
: test
 
 ...

1
2
3
4
5
6
7
8
9
: place over over >r >r char+ swap chars cmove r> r> c! ;
 
create str1 32 chars allot 
create str2 32 chars allot 
create str3 32 chars allot 
create str4 32 chars allot 
 
: test
 
 ...

1
2
3
4
5
6
7
: saccept 1- swap 1+ swap accept ;
 
  64 constant #texto
  create texto #texto chars allot
 
  texto #texto saccept
  texto 1+ swap type cr

1
:HELLO ."Hello, world!" CR;

1
2
3
4
5
:STAR [CHAR] * EMIT;
:STARS 0 DO STAR LOOP CR;
:SQUARE     DUP 0 DO DUP STARS LOOP DROP ;
:TRIANGLE           1 DO I STARS LOOP ;
:TOWER ( n -- )   DUP TRIANGLE SQUARE ;

1
5 6 4 6 * * + .

1
5 6 4 6 * * +

1
5 2 + .

1
2
3
4
5
6
7
8
9
C     Program to get the CC#5 Coordinates
      Program CC5
C
      IMPLICIT REAL*8 (e-f,k-o)
C
      CALL Get_Coords (North,East)
      WRITE (*,1000) North, East
1000  FORMAT ('Cache coordinates: N50',F7.3,', E014',F7.3)
C
 ...

1
2 2 + dup . 3 + .

1
10 1 do i . loop

1
2
: test 123 . ;
test