[Линда Кайе]

#post-id: 3640-15-28
#original-date: 14.07.2010 Wed
#original-time: 3:28 PM
#original-day:  3640
#original-host: WinXP Prof SP3 (Build 2600)

Три таких екзешника только что свалили XP. Круто!

Public Sub Main()
  Dim Data() As Byte
  Dim Size As Double
  
  Const INITIAL_SIZE = 1024& * 1024&
  
  On Error Resume Next
  
  Size = INITIAL_SIZE
  Do
    ReDim Preserve Data(0 To Size)
    If Err.Number <> 0 Then
      Size = INITIAL_SIZE
      Err.Clear
    Else
      Size = Size + Size
    End If
  Loop
End Sub

/* Правда, это не отбило у истерички желания играться дальше. Зато как красиво винт трещит при этом ^^ */

Ладно, чтобы это не было очередной программой на Perl из одной строчки, скажу, что программа выделает себе блок памяти начиная с метра и так по нарастающей в арифметической прогрессии. Когда происходит Out of Memory, цикл повторяется. При этом Windows вынуждена в определённый момент начинать задействовать виртуальную память, но всё равно старается держать блок в памяти, поэтому прочие сраницы скидывает в своп. Отсюда и трещание винта.

/* Интересно, это точно арифметическая прогрессия? OO */