AutoHotkey Community

SetBatchLines, -1
M := 3, out := "Mersenne primes:`n"

While M < 32 {
    a = 4
    Loop, % M - 2
        a := Mod(a*a - 2, 2**M - 1)
    If a = 0
        MsgBox, % out .= " M" M ","
    M++
}

ppm := Run("cmd.exe /c convert lena50.jpg ppm:-")
                       ; pipe in from imagemagick
img := ppm_read("", ppm) ;   
x := img[4,4] ; get pixel(4,4)
y := img[24,24] ; get pixel(24,24)
msgbox % x.rgb() " " y.rgb()
img.write("lena50copy.ppm")
return
 
ppm_read(filename, ppmo=0) ; only ppm6 files supported
{
if !ppmo  ; if image not already in memory, read from filename
  fileread, ppmo, % filename
 
  index := 1 
  pos := 1
 
  loop, parse, ppmo, `n, `r
  {
    if (substr(A_LoopField, 1, 1) == "#")
      continue
loop,
{
 if !pos := regexmatch(ppmo, "\d+", pixel, pos)
break
    bitmap%A_Index% := pixel
    if (index == 4)
      Break
    pos := regexmatch(ppmo, "\s", x, pos)
    index ++
}
  }
 
  type := bitmap1
  width := bitmap2
  height := bitmap3
  maxcolor := bitmap4
  bitmap := Bitmap(width, height, color(0,0,0))
  index := 1
  i := 1
  j := 1
 bits := pos
loop % width * height
  {
      bitmap[i, j, "r"]  := numget(ppmo, 3 * A_Index + bits, "uchar")
      bitmap[i, j, "g"]  := numget(ppmo, 3 * A_Index + bits + 1, "uchar")
      bitmap[i, j, "b"]  := numget(ppmo, 3 * A_Index + bits + 2, "uchar")
 
      if (j == width)
{
   j := 1
   i += 1
}
      else
   j++
}
 return bitmap 
  }
#include bitmap_storage.ahk ; from http://rosettacode.org/wiki/Basic_bitmap_storage/AutoHotkey
#include run.ahk ; http://www.autohotkey.com/forum/viewtopic.php?t=16823

ListofPoints = [0,-.3][1,1][1.5,2][2,2][3,3]
BruteForceClosestPair(ListofPoints)
ExitApp

BruteForceClosestPair(ListofPoints){
  StringReplace, ListofPoints, ListofPoints, [,, A
  StringSplit, p, ListofPoints, ]
  p0--
  If p0 < 2
     MinDistance = Infinity
  Else
  {
    MinDistance := Distance(p1,p2)
    MinPoints := "[" . p1 . "," . p2 . "]"
    i=1
    While i < p0-1
    {
      i++
      j:=i+1
      While j <= p0
      {
        Distance := Distance(p%i%,p%j%)
        if Distance < %MinDistance%
        {
          MinDistance := Distance
          MinPoints := "[" . p%i% . "][" . p%j% . "]"
        }
        j++
      }
    }
  }
  MsgBox, %MinDistance%`n%MinPoints%
}
Distance(p1, p2) {
  StringSplit, p1, p1, `,
  StringSplit, p2, p2, `,
  dx := abs(p11 - p21)
  dy := abs(p12 - p22)
  Return sqrt(dx*dx + dy*dy)
}

Points = 0,-3|10,10|15,20|20,20|30,25
ClosestPair(D,I,J, Points)
MsgBox % "min distance: D(" I "," J ") = " sqrt(D)

ClosestPair(ByRef minD, ByRef minI, ByRef minJ, Points) {
   StringSplit p, Points, |
   minD := D2(p1,p2), minI := 1, minJ := 2
   Loop % p0-1 {
      i := A_Index
      Loop % p0-i {
         j := i+A_Index, d := D2(p%i%,p%j%)
         If (minD > d)
            minD := d, minI := i, minJ := j
      }
   }
}

D2(p1,p2) { ; squared distance
  StringSplit p1, p1, `,
  StringSplit p2, p2, `,
  Return (p11-p21)**2 + (p12-p22)**2
}

Gui, Add, Button, w60, Increment
Gui, Add, Button, w60, Random
Gui, Add, Edit, x80 y20 w33 Limit4 Number vNumber, 0
Gui, Show, w120
Return

ButtonRandom:
 MsgBox, 4,, Enter Random Number?
 IfMsgBox Yes
 {
  Random, RandNum, 0, 9999
  GuiControl,, Number, %RandNum%
 }
Return

ButtonIncrement:
 GuiControlGet, Number
 Number++
 If Number = 10000
    Number = 0
 GuiControl,, Number, %Number%
Return

Gui, Add, Edit  , w160 Number vNum, 0
Gui, Add, Button, w75             , Increment
Gui, Add, Button, wp x+10         , Random

Gui, Show
return
GuiClose:
 ExitApp

ButtonRandom:
 Gui, +OwnDialogs
 MsgBox,36,,Enter Random Number?
 IfMsgBox, No
  return
 Random, RandNum
 GuiControl,,Num, %RandNum%
return

ButtonIncrement:
 Gui, Submit, NoHide
 GuiControl,,Num, % ++Num
return

Gui, Add, Edit, x5 y5 w240 h20 Number Right vNumber, 0
Gui, Add, Button, x110 w60 h25 gGuiClose +Default, Increment
Gui, Add, Button, x+10 yp hp gGuiClose, Random
Gui, Show,, GUI component interaction
Return                                     ; // end of auto-execute section //
GuiClose:
IfEqual, A_GuiControl,,ExitApp
IfEqual, A_GuiControl, Random, Random,Number
IfEqual, A_GuiControl, Random, MsgBox, 36,, Enter Random Number?
IfEqual, A_GuiControl, Random, IfMsgBox,Yes, GuiControl,,Number,%Number%
IfEqual, A_GuiControl, Increment, GuiControlGet, Number
IfEqual, A_GuiControl, Increment, GuiControl,, Number, % Number ? Number+1 : 1