View LazyTuples.m
1 2 3 4 5 6 7 8 9 10
BeginPackage["LazyTuples`"]
 
LazyTuples::usage = "LazyTuples[lists, opts] create a LazyList of the specified chunk size (\"ChunkSize\" option), containing tuples of the original lists";
 
Begin["`Private`"]
 
Needs["Streaming`"];
 
ClearAll[next];
next[{left_, _}, dim_] :=
View CellTimeTrack.m
1 2 3 4 5 6 7 8 9 10
BeginPackage["CellTimeTrack`"]
 
CellTimeTrack::usage = "CellTimeTrack[True|False] switches on or off the cell time-tracking mode";
 
Begin["`Private`"]
 
$style = Function[
arg,
StyleBox[arg, FontSize -> 16, FontWeight -> Bold, FontColor -> Darker[Green, 0.5]]
];
View debug.m
1 2 3 4 5 6 7 8 9 10
ClearAll[openerDress];
SetAttributes[openerDress, HoldAll];
openerDress[f_[args___]]:=
OpenerView[{
HoldForm[f],
HoldForm[f]@@Map[openerDress,Unevaluated[{args}]]
}];
openerDress[x_]:=HoldForm[x];
 
ClearAll[stackPrettify];
View SmartLet.m
1 2 3 4 5 6 7 8 9
ClearAll[Let, let, symbolOrListQ, inSetDelayed];
SetAttributes[{Let, let, symbolOrListQ}, HoldAll];
 
symbolOrListQ[_Symbol] = True;
symbolOrListQ[{___?symbolOrListQ}] = True;
symbolOrListQ[_] = False;
 
 
Let::lvset = "Local variable specification `1` is not valid.";
View CommonSubexpressionEliminator.m
1 2 3 4 5 6 7 8 9 10
ClearAll[csub];
csub[expr_Hold, rules_List, limitCount_] :=
With[{newrule =
Replace[If[# =!= {} && #[[-1, -1]] > 1, #[[-1, 1]], {}] &@
SortBy[Tally[
Cases[expr,
x_ /; Depth[Unevaluated[x]] > 2 &&
LeafCount[Unevaluated[x]] > limitCount :> Hold[x],
Infinity]], Last],
Hold[x_] :> (HoldPattern[x] -> Unique[])]},
View SimpleJavaReloader.m
1 2 3 4 5 6 7 8 9
(* ::Package:: *)
 
BeginPackage["SimpleJavaReloader`", {"JLink`"}];
 
JCompileLoad::usage =
"JCompileLoad[javacode_,addToClassPath_] attempts to compile a Java \
class defined by a string javacode, optionally adding to Java compiler classpath \
files and folders from addToClassPath, and load the resulting class into \
Mathematica";
View SEFormatter.m
1 2 3 4 5 6 7 8 9 10
(* Mathematica Package *)
 
(* :Title: SEFormatter *)
 
(* :Author: Leonid B. Shifrin *)
 
(* :Summary: Code formatting palette for mathematica.stackexchange.com
(but can be useful also for other formatting purposes) *)
 
(* :Context: SEFormatter` *)
View lincomp.c
1 2 3 4 5 6 7 8 9 10
# include <stdio.h>
# include <stdlib.h>
# include <time.h>
 
 
int random_in_range (unsigned int min, unsigned int max)
{
int range = max - min,
remainder = RAND_MAX % range,
bucket = RAND_MAX / range;
View EntireTableReader.m
1 2 3 4 5 6 7 8 9 10
JCompileLoad@"
import java.io.*;
import java.nio.ByteBuffer;
import java.nio.MappedByteBuffer;
import java.nio.channels.FileChannel;
import java.nio.channels.FileChannel.MapMode;
import java.util.Arrays;
public class EntireTableReader{
public static float[] getFloatTable(String filename, int rowByteCount, int rowChunkSize)
View SimpleOO.m
1 2 3 4 5 6 7 8 9 10
(* Mathematica Package *)
 
BeginPackage["SimpleOO`"]
(* Exported symbols added here with SymbolName::usage *)
 
Object;
Something went wrong with that request. Please try again.