pgrm

#! /bin/sh

suspend_vms () {
  for output in $(virsh list --state-running --uuid)
  do
    exec virsh managedsave $output --bypass-cache
  done  
}

case "$1" in

pgrm

/*** EXTENSTION METHODS START ***/

public static T GetFirstDescendant<T>(this OpenXmlElement parent) where T : OpenXmlElement
{
    var descendants = parent.Descendants<T>();

    if (descendants != null)
        return descendants.FirstOrDefault();
    else
        return null;

pgrm

[root@CentOS src]# make run_mpi
mpicc  -o sw.o smith_waterman.c
mpiexec -np 1 ./sw.o ../input_data/sequence1.dat ../input_data/sequence2.dat ../input_data/data.score -1
argv[0] = ./sw.o
argv[1] = ../input_data/sequence1.dat
argv[2] = ../input_data/sequence2.dat
argv[3] = ../input_data/data.score
argv[4] = -1
./sw.o: invalid option -- '1'
PAM file empty

pgrm

/*-------------------------------------------------------------

Copyright (C) 2000 Peter Clote. 
All Rights Reserved.

Permission to use, copy, modify, and distribute this
software and its documentation for NON-COMMERCIAL purposes
and without fee is hereby granted provided that this
copyright notice appears in all copies.

pgrm

max=MAX3(diag,down,right);
			if (max <= 0)  {
				h[i][j]=0;
				xTraceback[i][j]=-1;
				yTraceback[i][j]=-1;
					// these values already -1
				}
			else if (max == diag) {
				h[i][j]=diag;
				xTraceback[i][j]=i-1;

pgrm

do {
		ch = fgetc(in1);
		if ( ch == EOF ) break;
		LOOP1: if ( ch == 10 || ch == 13 ) {
			// newline or carriage return
			ch = fgetc(in1);
			if ( ch == EOF ) break;
			goto LOOP1;
			}
		// Bad style with 'goto', but then 

pgrm

using System;
using System.Collections.Generic;
using System.IO;

namespace SimpleCsvLoader
{
    public class CsvLoader
    {
        private char _delimiter;
        private string _fileName;

pgrm

import Data.List

--2)

type Row    = [Integer]
type Sudoku = [Row]

data Variant = Basic | Cross | Color deriving (Eq,Show)

isRowValid :: Row -> Bool