Recomendados: The Daily WTF.

El día en que algo del código que escribo aparezca en The Daily WTF será el que me jubile voy a amargarme mucho (lo de la jubilación me pareció una apuesta demasiado alta... todos tenemos nuestros días. No quisiera que una función escrita a los apurones en un mal día me obligue a cumplir esa promesa).

Gracias a la cantidad de seguidores que tiene, es una fuente inagotable de delirios de código, burradas, situaciones delirantes y demás, todas ellas concienzudamente documentadas.

Para muestra dos botones extraídos de One In 3.4*10^38:

1) Kill the children (un poco fuerte el nombre de la función ¿no?):

1. Public Sub KillTheChildren()  
2.    Dim objIntegrationAccount As IntegrationAccount  
3.   
4.    For Each objIntegrationAccount In mcolItems  
5.       Set objIntegrationAccount = Nothing  
6.    Next  
7.   
8.    Set objIntegrationAccount = Nothing  
9. End Sub  

Public Sub KillTheChildren()
   Dim objIntegrationAccount As IntegrationAccount

   For Each objIntegrationAccount In mcolItems
      Set objIntegrationAccount = Nothing
   Next

   Set objIntegrationAccount = Nothing
End Sub

2) Este es buenísimo, no me puedo explicar cómo se llega a esto:

1. If blnContinue Then  
2.    If CreateConnection Then  
3.       If DeleteData Then  
4.          If CreateLocations Then  
5.             If SaveServiceProviders Then  
6.                If LoadServiceProviders Then  
7.                   If LoadCategoryNames Then  
8.                      If LoadFiveServiceProviders Then  
9.                         If CalculateAllActivations Then  
10.                            If UpgradesCalcNoExchange Then  
11.                               If UpgradesCalcExchangeReturns  
12.                                  ' (25 more levels here)  
13.                               End If  
14.                            End If  
15.                         End If  
16.                      End If  
17.                   End If  
18.                End If  
19.             End If  
20.          End If  
21.       End If  
22.    End If  
23. End If  

If blnContinue Then
   If CreateConnection Then
      If DeleteData Then
         If CreateLocations Then
            If SaveServiceProviders Then
               If LoadServiceProviders Then
                  If LoadCategoryNames Then
                     If LoadFiveServiceProviders Then
                        If CalculateAllActivations Then
                           If UpgradesCalcNoExchange Then
                              If UpgradesCalcExchangeReturns
                                 ' (25 more levels here)
                              End If
                           End If
                        End If
                     End If
                  End If
               End If
            End If
         End If
      End If
   End If
End If

En el trabajo surgió esta regla: si estás escribiendo de la mitad de la pantalla para la derecha (por el anidamiento) algo está mal.

¿Alguien conoce algún sitio parecido en español?