// Main.java
public class Main {
    public static void main(String args[]) {
        chis m2 = new chis();
        Object run = m2.run();
        pro m3 = new pro();
        m3.run();
    }
}

//pro.java
class pro {

    public pro() {
    }

    void run() {
        throw new UnsupportedOperationException("Not yet implemented");
    }

}

//chis.groovy
public class RimArab_2 {
  def Rimarab_2(Rim) { RimArab m1 = new RimArab(); def   Arab = m1.Rimarab(Rim); return Arab }}
def Method() {RimArab_2 m2 = new RimArab_2();  Arab = m2.Rimarab_2(Rim)}

public class ArabRim_2 {
   def Arabrim_2(Arab) { ArabRim m2 = new ArabRim(); def   Rim = m2.Arabrim(Arab); return Rim }}
def Method2() {ArabRim_2 m3 = new ArabRim_2();  Rim = m3.Arabrim_2(Arab)}

def Vvod() {print "Vvedite Rim = "; Rim = System.in.newReader().readLine()}
def Vivod() { print "Arab = "; println Arab }
def Vvod2() {print "Vvedite Arab = "; Arab = System.in.newReader().readLine()/* ; Arab = s as Integer*/}
def Vivod2() { print "Rim = "; println Rim }
while (1) {
    Vvod()
    Method()
    Vivod()
     Vvod2()
    Method2()
    Vivod2()
}

//RimArab.groovy
public class RimArab {
    String  f
    Integer Arab
    Map rimArab = ["I":1, "V":5, "X":10, "L":50, "C":100, "D":500, "M":1000]
  def Rimarab (Rim) {
    f = Rim.replace("IV", "IIII").replace("IX", "VIIII").replace("XL", "XXXX").replace("XC", "LXXXX").replace("CD", "CCCC").replace("CM", "DCCCC")
    Arab = 0; for(i in f) { Arab = Arab + rimArab[i]}; return Arab
   }
}

//ArabRim.groovy
public class ArabRim {
    String Rim, A, r, r2, r1
    Integer i, x, iI, iV, iX, x1
    List L, rim = [ "I", "V", "X", "L", "C", "D", "M"]
  def Arabrim (Arab) {
    A = Arab.reverse(); i = 0; L = []
  for( v in A){ x = v as Integer; iI = i*2; iV = 2*i+1; iX = 2*i+2
    switch (x){
      case 4:    r  = rim[iI] + rim[iV]; break
      case 9:    r  = rim[iI] + rim[iX]; break
      case 1..3: r  = ""; for( int j = 0; j < x;  j++){ r  = r  + rim[iI]}; break
      case 5..8: r2 = ""; x1 = x - 5; for( int j = 0; j < x1; j++){ r2 = r2 + rim[iI]}; r1 = rim[iV]; r = r1 + r2; break
      case 0:    r  = ""; break }
           ++i; L = L + r }
    Rim = L.reverse().join(); return Rim
          }
}

//puzzle.groovy
package groovy
import groovy.swing.SwingBuilder
import javax.swing.*
import java.awt.FlowLayout
import java.util.*
import java.awt.*
import java.awt.event.*

jfrm = new JFrame('N-размерный puzzle')
gbag = new GridBagLayout()
gbc  = new GridBagConstraints()
gbc.fill = GridBagConstraints.BOTH
jfrm.getContentPane().setLayout(gbag)
jfrm.setSize(550, 550)
btnDim = new Dimension(50, 50)
gbc.weightx = 0.0       
gbc.insets  = new Insets(0, 0, 0, 0)

//N = Math.round(Math.random()*10); if (0 <= N && N <= 2) {N = 4} else {return N}

public class Spisok_2 {def spisok_2(N) {Spisok m1 = new Spisok(); def   order = m1.spisok(N)}}
                       def spisok(N) {m2 = new Spisok_2();  order = m2.spisok_2(N)}
N = 3
chisla = [1, 2, 3, 4, 5, 6, 7, 8]//spisok(N)
Tablica(N)
jfrm.setVisible(true)

def Tablica(N) {for (int I = 0; I < N**2 - 1; I++) {knopka(N, I)}}
def knopka(N, I) {  
  Y = (int)(I/N); X = I%N
  jbtnCh = new JButton(text: chisla[I], actionPerformed: {e -> e.getSource().setText(null); Poisk(N, I)})    
  gbc.gridy = Y+1; gbc.gridx = X+1  
  jbtnCh.setPreferredSize(btnDim)   
  gbag.setConstraints(jbtnCh, gbc)
  jfrm.getContentPane().add(jbtnCh)
}
def Poisk(N, I) {    
  if (((F = I-N) >= 0     &&  chisla[F] == null) ||
      ((F = I+1) <  N**2  &&  chisla[F] == null) ||
      ((F = I+N) <  N**2  &&  chisla[F] == null) ||
      ((F = I-1) >= 0     &&  chisla[F] == null))
      {chisla[F] = chisla[I]; knopka(N, F); chisla[I] = null}     
}

//Spisok.groovy
package groovy
  public class Spisok {
    Integer S, J, T, Q
    List Order
def spisok (N) {
    S = (N as Integer  )**2 - 1
    Order = [0]; Q = 0
  while (Q <= S) {
     J = 0; T = Math.round(Math.random() * S)
    for (i in Order) {if (T != i) {++J}}
      if (J == Order.size()) {Order = Order + T}         
       Q = Order.size()
      }
    Order = Order - 0
   }
}

/Main.java
package javaclass;
public class Main {
      public static void main(String args[]) {
        puzzle m2 = new puzzle();
        m2.run();
    }
}

//puzzle.java
package javaclass;
class puzzle {
    void run() {
        throw new UnsupportedOperationException("Not yet implemented");
    }
}

import groovy.swing.SwingBuilder
import javax.swing.*
import java.awt.FlowLayout
/*def download(address) {
    def file = new FileOutputStream(address)
    def out  = new BufferedOutputStream(file)
    out      << file (address).openStream()
    out.close()
    }
download(chisla)*/
swinger = new SwingBuilder()
  gui = swinger.frame(title:'Арабские << >> Римские', size: [448, 160]) {
    panel(layout: new FlowLayout()) {
    arabrim =  new JLabel('Это приложение переводит из арабской cистемы счисления в римскую и обратно!')
    arabrim.setBorder(BorderFactory.createEtchedBorder())
    panel().add(arabrim)
    panel(layout: new FlowLayout()) {
      arab = new JLabel('Арабское число:'); panel().add(arab)
      message1 = textField(columns: 12)
      button = swinger.button(text: 'Вычислить', actionPerformed: {
               JOptionPane.showMessageDialog(gui, ArabRim(message1.text))})         
      button = swinger.button(text: 'Очистить', actionPerformed: {         
               message1.selectAll(); message1.cut()})
}
      rim  = new JLabel('Римское__число:'); panel().add(rim)         
      message2 = textField(columns: 12)
      button = swinger.button(text: 'Вычислить', actionPerformed: {
               JOptionPane.showMessageDialog(gui, RimArab(message2.text))})
      button = swinger.button(text: 'Очистить', actionPerformed: {         
               message2.selectAll(); message2.cut()})
}}
gui.show()

def ArabRim (Arab) {
List Rim = [ "I", "V", "X", "L", "C", "D", "M"]
A = Arab.reverse(); i = 0; L = []
for( v in A){ x = v as Integer; iI = i*2; iV = 2*i+1; iX = 2*i+2
              switch (x){
                  case 4:    r  = Rim[iI] + Rim[iV]; break
                  case 9:    r  = Rim[iI] + Rim[iX]; break
                  case 1..3: r  = ""; for( int j = 0; j < x;  j++){ r  = r  + Rim[iI]}; break
                  case 5..8: r2 = ""; x1 = x - 5; for( int j = 0; j < x1; j++){ r2 = r2 + Rim[iI]}; r1 = Rim[iV]; r = r1 + r2; break
                  case 0:    r  = ""; break
                        }; ++i; L = L + r}                        
Rim = L.reverse(); return Rim.join()
                  }
def RimArab (Rim) {
Map rimArab = [ "I":1, "V":5, "X":10, "L":50, "C":100, "D":500, "M":1000]
f = Rim.replace("IV", "IIII").replace("IX", "VIIII").replace("XL", "XXXX").replace("XC", "LXXXX").replace("CD", "CCCC").replace("CM", "DCCCC")
Arab = 0; for(i in f) { Arab = Arab + rimArab[i]}; return Arab
                  }

package demo
def Vvod () {print "Vvedite n = "; s = System.in.newReader().readLine(); n = s as Integer}
def Spisok (n) {
     order = []
  for (int i = 1; i <= n; i++) {
     j = Math.round(Math.random() * n)
  if (j == 0) {order << ( j + 1)}
    else      {order <<   j }
    }
    return order
}
def Bez_X (order) {
     len  = order.size() - 1
     len1 = len + 1
  for (int i = 0; i <= len; i++) {
    for (int j = (i + 1); j <= len1; j++) {
      if (order[j] == order[i]) {order.remove(j)}        
        }
        len1 = order.size()
    }
    return order
}
def Ok_Spisok (n) {
      order = Bez_X (Spisok (n))
   for (int k = 1; k <= n; k++) {
      order = Bez_X (order + k)
                    }
      return order
                  }
def Vivod () { print "order = "; println order}

while (1)  {
  Vvod (); if(n == "n") {break}
  Ok_Spisok (n)
  Vivod ()
           }

def Ok_Spisok (n) {
      order = Bez_X (Spisok (n))
   for (int k = n; 1 <= k; k--) {
      order = Bez_X (order + k)
                    }
      return order
                  }

//Main.java
public class Main {
      public static void main(String args[]) {
        chislo m2 = new chislo();
        m2.run();
    }
}

//chislo.groovy
import groovy.swing.SwingBuilder
import javax.swing.*
import java.awt.FlowLayout

public class ArabRim_2 {
  def Arabrim_2(Arab) { ArabRim m2 = new ArabRim(); def   Rim = m2.Arabrim(Arab); return Rim }}
  def Arab_Rim(Arab) {ArabRim_2 m3 = new ArabRim_2();  Rim = m3.Arabrim_2(Arab)}

public class RimArab_2 {
  def Rimarab_2(Rim) { RimArab m1 = new RimArab(); def   Arab = m1.Rimarab(Rim); return Arab }}
  def Rim_Arab(Rim) {RimArab_2 m2 = new RimArab_2();  Arab = m2.Rimarab_2(Rim)}

  swinger = new SwingBuilder()
  gui = swinger.frame(title:'Арабские << >> Римские', size: [510, 160]) {
    panel(layout: new FlowLayout()) {
    arabrim =  new JLabel('Это приложение переводит из Арабской системы счисления в Римскую и обратно!')
    arabrim.setBorder(BorderFactory.createEtchedBorder()); panel().add(arabrim)
    panel(layout: new FlowLayout()) {
      arab = new JLabel('Арабское  число:'); panel().add(arab)
        message1 = textField(columns: 12)
          button = swinger.button(text: 'Вычислить', actionPerformed: {
                   JOptionPane.showMessageDialog(gui, Arab_Rim(message1.text))})
          button = swinger.button(text: 'Очистить', actionPerformed: {
                   message1.selectAll(); message1.cut()})}
      rim  = new JLabel('Римское__число:'); panel().add(rim)
        message2 = textField(columns: 12)
          button = swinger.button(text: 'Вычислить', actionPerformed: {
                   JOptionPane.showMessageDialog(gui, Rim_Arab(message2.text))})
          button = swinger.button(text: 'Очистить', actionPerformed: {
                   message2.selectAll(); message2.cut()})}}
gui.show()

//ArabRim.groovy
public class ArabRim {
    String Rim, A, r, r2, r1
    Integer i, x, iI, iV, iX, x1
    List L, rim = [ "I", "V", "X", "L", "C", "D", "M"]
  def Arabrim (Arab) {
    A = Arab.reverse(); i = 0; L = []
  for( v in A){ x = v as Integer; iI = i*2; iV = 2*i+1; iX = 2*i+2
    switch (x){
      case 4:    r  = rim[iI] + rim[iV]; break
      case 9:    r  = rim[iI] + rim[iX]; break
      case 1..3: r  = ""; for( int j = 0; j < x;  j++){ r  = r  + rim[iI]}; break
      case 5..8: r2 = ""; x1 = x - 5; for( int j = 0; j < x1; j++){ r2 = r2 + rim[iI]}; r1 = rim[iV]; r = r1 + r2; break
      case 0:    r  = ""; break }
           ++i; L = L + r }
    Rim = L.reverse().join(); return Rim } }

//RimArab.groovy
public class RimArab {
    String  f; Integer Arab
    Map rimArab = ["I":1, "V":5, "X":10, "L":50, "C":100, "D":500, "M":1000]
  def Rimarab (Rim) {
    f = Rim.replace("IV", "IIII").replace("IX", "VIIII").replace("XL", "XXXX").replace("XC", "LXXXX").replace("CD", "CCCC").replace("CM", "DCCCC")
    Arab = 0; for(i in f) { Arab = Arab + rimArab[i]}; return Arab } }

class chislo {
    void run() {
        throw new UnsupportedOperationException("Not yet implemented");
    }
}

def Ok_Spisok (n) {
      order1 = Bez_X (Spisok (n))
   for (int k = n; 1 <= k; k--) {
      order1 = Bez_X (order1 + k)
                    }
   order = Bez_X (Spisok (n))
   for (i in order1) {
      order = Bez_X (order + i)
                    }
      return order
                  }

button = swinger.button(text: 'Вычислить', \
                        actionPerformed: { swinger.optionPane(message: \
                    "Арабское $message1.text  ==>  Римское ${Arab_Rim(message1.text)}"). \
                    createDialog(null, 'Арабские в Римские').show()})

button = swinger.button(text: 'Вычислить', \
                        actionPerformed: { swinger.optionPane(message: \
                    "Римское $message2.text  ==>  Арабское ${Rim_Arab(message2.text)}"). \
                    createDialog(null, 'Римские в Арабские').show()})

source [file join [file dirname [info script]] arab_rim.tcl]
source [file join [file dirname [info script]] rim_arab.tcl]
package require Tk
set w .filebox
catch {destroy $w}
toplevel $w
wm title $w "Из римских в арабские!"
wm iconname $w "filebox"
ttk::frame $w._bg
place $w._bg -x 0 -y 0 -relwidth 1 -relheight 1
set font #4ddd84
ttk::label $w.msg -font $font -wraplength 4i -justify left -text "Это приложение переводит числа из римской  системы    счисления,  в  арабскую и обратно!"
pack $w.msg -side top

    set i "Ввести число"
    set g [ttk::frame $w.$i]
    ttk::label  $g.lab    -text "Римское__число: $i: " -anchor e
    ttk::entry  $g.ent    -textvar Rim
    ttk::button $g.but    -text "Вычислить!!!" -command {tk_messageBox  -title "Арабское число"  -message "Римское $Rim  ==>  Арабское [eval {Run $Rim}]"}
    ttk::button $g.but1   -text "Очистить!"    -command {$g.ent delete 0 [string length $Rim]}  
    pack $g.lab  -side left
    pack $g.ent  -side left   -expand yes -fill x
    pack $g.but  -side left
    pack $g.but1 -side left
    pack $g -fill x -padx 1c -pady 3
    
    set j "Ввести_число"
    set f [ttk::frame $w.$j]
    ttk::label  $f.lab1   -text "Арабское число: $j: " -anchor e
    ttk::entry  $f.ent1   -textvar Arab  
    ttk::button $f.but2   -text "Вычислить!!!" -command {tk_messageBox  -title "Римское число"  -message "Арабское $Arab  ==>  Римское [eval {Runo $Arab}]"}
    ttk::button $f.but3   -text "Очистить!"    -command {$f.ent1 delete 0 [string length $Arab]}
    pack $f.lab1  -side left
    pack $f.ent1  -side left   -expand yes   -fill x
    pack $f.but2  -side left
    pack $f.but3  -side left
    pack $f -fill x -padx 1c -pady 3

#!/usr/local/bin/wish
proc Runo {Arab} {
set a_r {I V X L C D M}
set Arabn [split $Arab {}]
set Zx [string reverse $Arabn]
set I 0; set W ""; set W2 ""                       
foreach V $Zx { set I2 [expr 2*$I]; set I1 [expr 2*$I+1]
                set I3 [expr 2*$I+2]; set V1 [expr $V - 5]
            if {$V == 4} {
        append W [lindex $a_r $I1] [lindex $a_r $I2]
      } elseif {$V == 9} {
        append W [lindex $a_r $I3] [lindex $a_r $I2]
      } elseif {$V1 < 0} {
         for {set J 0} {$J < $V} {incr J} {
        append W [lindex $a_r $I2]
      }} else {
      for {set J 0} {$J < $V1} {incr J} {
        append W [lindex $a_r $I2]
                    }
        append W [lindex $a_r $I1]
              }
      incr I
      }
       set L [string reverse $W]
}

proc Run {Rim} {
set r_a(I) 1; set r_a(V) 5; set r_a(X) 10; set r_a(L) 50;
set r_a(C) 100; set r_a(D) 500; set r_a(M) 1000
#set Rim [gets stdin]
set RimCM [string map {IV IIII IX VIIII XL XXXX XC LXXXX CD CCCC CM DCCCC} $Rim]
set RimN [split $RimCM {}]
set Arab 0
foreach P $RimN {set Arab [expr $Arab + $r_a($P)]}
set T $Arab
}

source [file join [file dirname [info script]] arab_rim.tcl]
source [file join [file dirname [info script]] rim_arab.tcl]

package require Tk
. config -bg gray75
wm title . "Rim << >> Arab"

label  .label1  -text "Римское число:"
entry  .entry1  -textvar Rim
button .button1 -text "Вычислить!" -command {tk_messageBox  -title "Арабское число"  -message "Римское $Rim  ==>  Арабское [eval {Run $Rim}]"}
button .button2 -text "Очистить!"  -command {.entry1 delete 0 [string length $Rim]}
pack   .label1 .entry1 .button1 .button2 -side left

label  .label2  -text "Арабское число:"
entry  .entry2  -textvar Arab
button .button3 -text "Вычислить!" -command {tk_messageBox  -title "Римское число"  -message "Арабское $Arab  ==>  Римское [eval {Runo $Arab}]"}
button .button4 -text "Очистить!"  -command {.entry2 delete 0 [string length $Arab]}
pack   .label2 .entry2 .button3 .button4 -side left

proc Vvod {a} {
       global t
       puts stdout { Vvedite a:}
       set a [gets stdin]
       set t [format "%d" $a]
    }
  proc Ldelete {list value} {
        set ix [lsearch -exact $list $value]
        if {$ix >= 0} {
           return [lreplace $list $ix $ix]
        } else {
           return $list
        }
    }
  proc Bez_X {order} {    
    foreach valume $order {
      set m [lsearch -all $order $valume]
      set y [lrange $m 1 end]
    foreach val $y {
      lset order $val X
              }
      set order [Ldelete $order X]         
    }    
   return $order
}    
  proc Spisok {t} {
    for {set i 1} {$i <= $t } {incr i} {
      set j [expr {round(rand()*$t)}]
    if {$j == 0} {
        set k [expr {$j + 1}]
} else {
      set k $j
        }   
      lappend order $k  
    }    
   puts stdout "order = $order"   
      set order [Bez_X $order]
      puts stdout "order1 = $order"   
      return $order     
      }  
  proc !Spisok {order t} {
      set dlina [llength $order]
    if {$dlina < $t} {
   set q [expr $t - $dlina]   
      set order1 [Spisok $q]
   puts stdout "order11 = $order1"
      set order [concat $order $order1]
   puts stdout "order2 = $order"
# ----------------------------------------------------------------------   
#      set order [Bez_X $order ]
# При присутствии этой команды Bez_X получается бесконечный цикл!   
      puts stdout "order3 = $order"    
      !Spisok $order $t
} else {
      return $order
   }
}
    while 1 {
      Vvod a
      set order [Spisok $t]
      set x [!Spisok $order $t]
      puts stdout "x = $x"   
    }