AutoHotkey Community

{{mylangbegin}}
{{mylang|AutoHotkey| proficiency level here }}
{{mylangend}}

x=100
Loop, 99 {

  if (x - A_Index - 1 > 1)
   FileAppend
   , % x - A_Index " bottles of beer on the wall,`n" x - A_Index " bottles of beer,`nTake one down and pass it around,`n" x - A_Index - 1 " bottles of beer on the wall.`n`n"
   , Output.txt
  else if (x - A_Index - 1 = 1)
   FileAppend
   , % x - A_Index " bottles of beer on the wall,`n" x - A_Index " bottles of beer,`nTake one down and pass it around,`n" x - A_Index - 1 " bottle of beer on the wall.`n`n"
   , Output.txt
  else if (x - A_Index - 1 = 0)
   FileAppend
   , % x - A_Index " bottle of beer on the wall,`n" x - A_Index " bottle of beer,`nTake one down and pass it around,`nNo more bottles of beer on the wall.`n"
   , Output.txt

}

Loop, 100
  Door%A_Index% := "closed"

Loop, 100 {
  x := A_Index
  y := A_Index
  While (x <= 100)
  {
    CurrentDoor := Door%x%
    If CurrentDoor contains closed
    {
      Door%x% := "open"
      x += y
    }
    else if CurrentDoor contains open
    {
      Door%x% := "closed"
       x += y
     }
  }
}

Loop, 100 {
   CurrentDoor := Door%A_Index%
   If CurrentDoor contains open
      Res .= "Door" A_Index "`n"
}

MsgBox % "The following doors are still open.`n`n" Res

Loop, 100
{
  If (Mod(A_Index, 15) = 0)
    Output .= "FizzBuzz`n"
  Else If (Mod(A_Index, 3) = 0)
    Output .= "Fizz`n"
  Else If (Mod(A_Index, 5) = 0)
    Output .= "Buzz`n"
  Else
    Output .= "`n"
}
Msgbox % Output

FileDelete, output.txt
FileAppend, %output% output.txt
run, cmd /k type Output.txt

=={{header|AutoHotkey}}==
<lang AutoHotkey>
...autohotkey code here...
</lang>

MsgBox,% Happy()
return

Happy() {
 static in:=1,out:="",int:=1,index:=1
 Loop,Parse,int
  num += A_LoopField**2
 If (num=1) OR (index++ > 9) {
  out .= num=1 ? in "`n":""
  int := ++in
  index := 1
 }
 Else int := num
 StringReplace,out,out,`n,`n,UseErrorLevel
 If (ErrorLevel < 8)
  Happy()
 Return, out
}

Lost = 123456789
Loop {
  Seed = 123456789
  Found := ""
  Loop, 9 {
    Random, No, 1, % 10 - A_Index
    Found .= SubStr(Seed,No,1)
    Seed := SubStr(Seed,1,No-1) . SubStr(Seed,No+1)
  }
  if (Lost = Found)
  {
    MsgBox % "We have a match!`n`nLost: " Lost "`nFound: " Found
    break
  }
}

Seed = 123456789
Loop 9 {
  Random, No, 1, % 10 - A_Index
  Number .= SubStr(Seed,No,1)
  Seed := SubStr(Seed,1,No-1) . SubStr(Seed,No+1)
}
Lost := Number
Loop {

  if Lost <> 123456789
  {
    Loop 8 {
      if (SubStr(Lost,A_Index,1) > SubStr(Lost,A_Index+1,1))
        Lost := SubStr(Lost,1,A_Index-1) . SubStr(Lost,A_Index+1,1) . SubStr(Lost,A_Index,1) . SubStr(Lost,A_Index+2)
    }
  }
  else
  {
    MsgBox % "You've successfully bubble sorted the number!`n`nStarting number: " Number "`nLost: " Lost
    break
  }
}