f0k

#!/usr/bin/env python
# -*- coding: utf-8 -*-

"""
Outputs some information on CUDA-enabled devices on your computer,
including current memory usage.

It's a port of https://gist.github.com/f0k/0d6431e3faa60bffc788f8b4daa029b1
from C to Python with ctypes, so it can run without compiling anything. Note
that this is a direct translation with no attempt to make the code Pythonic.

dcomtois

printname	c.entry	file	line_no
-	do_arith	R-4.0.3\src\main\arithmetic.c	411
!	do_logic	R-4.0.3\src\main\logic.c	40
!=	do_relop	R-4.0.3\src\main\relop.c	51
$	do_subset3	R-4.0.3\src\main\subset.c	1206
$<-	do_subassign3	R-4.0.3\src\main\subassign.c	2081
%%	do_arith	R-4.0.3\src\main\arithmetic.c	411
%*%	do_matprod	R-4.0.3\src\main\array.c	1228
%/%	do_arith	R-4.0.3\src\main\arithmetic.c	411
&	do_logic	R-4.0.3\src\main\logic.c	40

pkuczynski

#!/bin/sh
parse_yaml() {
   local prefix=$2
   local s='[[:space:]]*' w='[a-zA-Z0-9_]*' fs=$(echo @|tr @ '\034')
   sed -ne "s|^\($s\)\($w\)$s:$s\"\(.*\)\"$s\$|\1$fs\2$fs\3|p" \
        -e "s|^\($s\)\($w\)$s:$s\(.*\)$s\$|\1$fs\2$fs\3|p"  $1 |
   awk -F$fs '{
      indent = length($1)/2;
      vname[indent] = $2;
      for (i in vname) {if (i > indent) {delete vname[i]}}

vvinichenko

shiftMatrix <- function(mx, dr, dc) {
	#Shift the matrix by dr (delta r) rows and dc columns
	#by adding e.g. dr rows of zeros and removing dr rows from the other side 
	
	nr <- nrow(mx)
	nc <- ncol(mx)
	
	#If the matrix is shifted by more than its nrow or ncol, we get a matrix of zeros 
	if (abs(dr) >= nr || abs(dc) >= nc) {
		mx <- matrix(0, nrow = nr, ncol = nc)