1. VisualBasic / Говнокод #13267

    −110

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    ResetList( Chars( ) )
    While NextElement( Chars( ) )
    	Define Address.l = @Chars( )
    	Define Reference.s = Chars( )
    	While NextElement( Chars( ) )
    		If Chars( ) = Reference
    			DeleteElement( Chars( ) )
    		EndIf
    	Wend
    	ChangeCurrentElement( Chars( ), Address )
    Wend

    ололо. Этот код ищет дубликаты в списке и лишает их невинности. Но поглядите товарищи, сколько же итераций должен выполнить цикл, чтобы дефлорировать все элементы! :O
    Взято с http://forum.boolean.name/showthread.php?t=18297

    Запостил: Stertor, 30 Июня 2013

    Комментарии (1) RSS

    • Участник, прошу тебя: не поленись, пройди по анкетам и поставь всем минусы.
      Минуисуя участников, ты помогаешш обществу снижать ЧСВ.
      Ответить

    Добавить комментарий