Skip to content

Instantly share code, notes, and snippets.

---
name: audit
description: Weekly prompt audit — find repeated prompts and turn the best one into a slash command
---
Run my weekly prompt systematization audit.
## Step 1: Gather My Patterns
Ask me these 4 questions one at a time. Wait for my answer to each before moving on.
# /roast — Landing Page Competitive Audit for Claude Code
Score your landing page against competitors across 5 weighted dimensions. Get specific fixes, headline rewrites, and "steal this" recommendations.
## Setup
Save the SKILL.md below to `.claude/skills/roast/SKILL.md` in any project. Then run:
```
/roast https://yoursite.com https://competitor1.com https://competitor2.com
@vladiim
vladiim / gist:4bd9c0471ff896a4a596ff9a32ecb95a
Created February 10, 2026 05:37
Claude Code Competitive Intel System
# Competitive Intelligence System — Mega Prompt
Use this prompt to install a complete competitive intelligence tracking system inside any marketing org built on Claude Code.
**How to use:**
1. Already have a marketing org set up? (CLAUDE.md, positioning.md, icp.md)
2. Copy everything below the `---` line
3. Paste into Claude Code
4. Answer 3 questions about your competitors
5. System builds itself: landscape map, signal log, data sources, 3 new slash commands
# Agentic Marketing Org - Mega Prompt
Use this prompt to spin up a complete marketing system in Claude Code.
**How to use:**
1. Fill in the "My Context" section with your company details
2. Copy the entire prompt
3. Paste into Claude Code
4. Let it build your marketing org
estimate <- function(targetRate,difference,errorProb) {
ceiling(-log(errorProb) * targetRate / (difference^2))
}
estimate(0.045, 0.004, 0.05)
# Listing B.20 Exact binomial sample size calculation
errorProb <- function(targetRate,difference,size) {
pbinom(
ceiling(( targetRate - difference) * size),
size = size, prob = targetRate)
}
print(errorProb(0.045 , 0.004, est)) ## [1] 0.04153646
binSearchNonPositive <- function(fEventuallyNegative) {
@vladiim
vladiim / map.R
Created September 20, 2017 03:45
map <- list('index' = 'mapping')
vector <- c('index')
as.character(map[vector])
Date SP500 Dividend Earnings Consumer Price Index Long Interest Rate Real Price Real Dividend Real Earnings PE10
1871-01-01 4.44 0.26 0.4 12.46 5.32 85.1 4.98 7.67
1871-02-01 4.5 0.26 0.4 12.84 5.32 83.7 4.84 7.44
1871-03-01 4.61 0.26 0.4 13.03 5.33 84.49 4.77 7.33
1871-04-01 4.74 0.26 0.4 12.56 5.33 90.16 4.95 7.61
1871-05-01 4.86 0.26 0.4 12.27 5.33 94.6 5.06 7.79
1871-06-01 4.82 0.26 0.4 12.08 5.34 95.29 5.14 7.91
1871-07-01 4.73 0.26 0.4 12.08 5.34 93.51 5.14 7.91
1871-08-01 4.79 0.26 0.4 11.89 5.34 96.22 5.22 8.03
1871-09-01 4.84 0.26 0.4 12.18 5.35 94.94 5.1 7.85
set.seed(1)
x=matrix(rnorm(200),100,2)
xmean=matrix(rnorm(8,sd=4),4,2)
which=sample(1:4,100,replace=T)
x=x+xmean[which,]
plot(x,col=which,pch=19)
# Gen app
rails new blah -T
# Update Gemfile
# gem 'devise'
# gem 'bootstrap', '~> 4.0.0.alpha3'
# Install gems
bundle