NeilRobbins

(ns tron.neil.bots
  (:require [tron.core :as tron]))

(def directions {:right [1 0]
                 :down  [0 1]
                 :left  [-1 0]
                 :up    [0 -1]})

(def pos [3 4])

NeilRobbins

find . -name packages.config -exec grep -H -n '^.*System.Windows.*' {} \;

find . -name *.csproj -exec grep -H -n '^.*<Reference Include="System.Windows.Controls.Toolkit.Internals, Version=4.0.5.0, Culture=neutral, PublicKeyToken=2c5c654d367bf4a7, processorArchitecture=MSIL">' {} \;

NeilRobbins

import System.Environment

main = do (countTo:_) <- getArgs
          let numbers = fizzbuzz [0..(read countTo)]
          mapM_ putStr $  map (\n -> n ++ ", ") $ init numbers
          putStrLn $ last numbers

divides d n = rem n d == 0
fb x = if (divides 15 x) then "Fizzbuzz" else if (divides 3 x) then "Fizz" else if (divides 5 x) then "Buzz" else show x

NeilRobbins

^([0-9]+[.]){3}[0-9]+$

NeilRobbins

Log on as the local system admin (must be the local system administrator account, no other admin account works)

Then run:

• winrm quickconfig -quiet
• winrm set winrm/config/client @{TrustedHosts="*"}

Optional (lets chunky stuff be passed around):

• Powershell Set-PSSessionConfiguration -name ` microsoft.powershell -MaximumReceivedObjectSizeMB 1000 -Force

NeilRobbins

module Program

open System

let rec factor (n : int64) =
 match n with
  | 0L -> 1L
  | _ -> n * (factor (n - 1L))

let rec combinations r n =

NeilRobbins

    public class MvcApplication : System.Web.HttpApplication
    {
        // Everthing else...

        protected void Application_Start()
        {
            // Everthing else...

            ControllerBuilder.Current.SetControllerFactory(new CustomControllerFactory(new BuildControllers()));
        }

NeilRobbins

    /// <summary>
    /// Effectively an alias of string, but with a stronger semantic
    /// </summary>
    /// <remarks>
    /// Can still pass it to something (eg a screen element, or a db, that expects a string), but get to call it
    /// by a semantically richer type name everywhere, especially where it may be returned (returned things not
    /// being named, except indirectly by the method name)
    /// </remarks>
    public class FooId
    {

NeilRobbins

Import-Module “sqlps” -DisableNameChecking
Set-Location SQLSERVER:\SQL\<MachineName>\<InstanceName>
Backup-SqlDatabase -ServerInstance <MachineName> -Database <NameOfDatabaseToCopy> -BackupFile <PathOfDirToStoreBak>\<BackupName>.bak

$RelocateData = New-Object Microsoft.SqlServer.Management.Smo.RelocateFile(<NameOfDataFile>, "C:\Program Files\Microsoft SQL Server\MSSQL10_50.MSSQLSERVER\MSSQL\DATA\<NameOfDataFile>_COPY.mdf")
$RelocateLog = New-Object Microsoft.SqlServer.Management.Smo.RelocateFile("<NameOfDataFile>_log", "C:\Program Files\Microsoft SQL Server\MSSQL10_50.MSSQLSERVER\MSSQL\DATA\<NameOfDataFile>_COPY.ldf")

Restore-SqlDatabase -ServerInstance <MachineName>\<InstanceName> -Database <NameOfDatabaseToCopy> -BackupFile <PathOfDirToStoreBak>\<BackupName>.bak -RelocateFile @($RelocateData,$RelocateLog)
Invoke-Sqlcmd -Query "ALTER DATABASE <NameOfDatabaseToCopy> SET SINGLE_USER WITH ROLLBACK IMMEDIATE" -QueryTimeout 65534
Invoke-Sqlcmd -Query "DROP DATABASE <NameOfDatabaseToCopy>" -QueryTimeout 65534

NeilRobbins

SELECT
	DB_NAME(osbd.database_id)AS [Database Name],
	OBJECT_NAME(p.[object_id]) AS [ObjectName],
	sum(osbd.row_count) AS [Count of Rows],
	au.[type_desc] AS [Allocation Unit Type],
	osbd.page_type
FROM sys.allocation_units au
	inner join sys.dm_os_buffer_descriptors osbd on au.allocation_unit_id = osbd.allocation_unit_id
	inner join sys.partitions p on au.container_id = p.hobt_id
WHERE p.[object_id] > 100